Определить число единиц во введенном числе. Паскаль АБС

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

Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Загрузить картинку
×