Информатика, опубликовано 2018-08-22 22:35:56 by Гость
Определить число единиц во введенном числе. Паскаль АБС
Ответ оставил Гость
Var
s: string;
i, k: integer;
begin
Write(Введите произвольное число: ); Readln(s);
k := 0;
for i := 1 to length(s) do
if s[i] = 1 then k := k + 1;
Writeln(Количество единиц в числе равно , k);
end.
Тестовое решение:
Введите произвольное число: -156153451.4234111322
Количество единиц в числе равно 6
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на