Предмет: Информатика,
автор: 1234321
Дано натуральное число n.Определить сколько в числе нулей.Pascal ABC
Ответы
Автор ответа:
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.
Автор ответа:
0
нужно другое решение попроще!
Автор ответа:
0
Var i:integer;
c:char;
begin
repeat
read(c);
if (ord(c)=48) then i:=i+1;
until (c='');
writeln(i);
End.
c:char;
begin
repeat
read(c);
if (ord(c)=48) then i:=i+1;
until (c='');
writeln(i);
End.
Автор ответа:
0
Так попроще, но только после ввода числа надо обязательно пробел ставить
Автор ответа:
0
Var i:integer;
c:char;
begin
repeat
read(c);
if (ord(c)=48) then i:=i+1;
until (c=' ');
writeln(i);
End.
c:char;
begin
repeat
read(c);
if (ord(c)=48) then i:=i+1;
until (c=' ');
writeln(i);
End.
Похожие вопросы
Предмет: Математика,
автор: dias5114
Предмет: Психология,
автор: milanastoljarenko0
Предмет: Английский язык,
автор: tehnodomt360
Предмет: Информатика,
автор: Tert93
Предмет: Математика,
автор: Girl2705