Kalar
7 год назад
Составьте программу, позволяющую найти количество цифр во введённой строке s
ОТВЕТЫ
Лонгинович
Jul 11, 2019
//Pascal ABC.Net
Var s:string;k:byte;
Begin
read(s);
for i:=1 to length s do
case s[i] of
1,2,3,4,5,6,7,8,9,0: k+=1;
end;
writeln (k);
End.
Var s:string;k:byte;
Begin
read(s);
for i:=1 to length s do
case s[i] of
1,2,3,4,5,6,7,8,9,0: k+=1;
end;
writeln (k);
End.
187
Смежные вопросы:
