Предмет: Информатика, автор: 1234321

Дано натуральное число n.Определить сколько в числе нулей.Pascal ABC

Ответы

Автор ответа: freako
0
Var n,i:longint; begin read (n); i:=0; repeat if (n mod 10 = 0) then i:=i+1; n:= n div 10; until (n=0); writeln(i); End.
Автор ответа: 1234321
0
нужно другое решение попроще!
Автор ответа: freako
0
Var i:integer;
c:char;
begin
repeat
read(c);
if (ord(c)=48) then i:=i+1;
until (c='');
writeln(i);
End.
Автор ответа: freako
0
Так попроще, но только после ввода числа надо обязательно пробел ставить
Автор ответа: freako
0
Var i:integer;
c:char;
begin
repeat
read(c);
if (ord(c)=48) then i:=i+1;
until (c=' ');
writeln(i);
End.
Похожие вопросы
Предмет: Математика, автор: Girl2705