Дан текст . определить количество цифр в нём

0 голосов
42 просмотров

Дан текст . определить количество цифр в нём

Информатика (16 баллов) | 42 просмотров
0

программу написать?

оставил комментарий (625 баллов)
0

да

оставил комментарий (16 баллов)
Дан 1 ответ
0 голосов
var
i,count:integer;
str:string;
begin
readln(str);
for i:=1 to length(str) do begin
if (ord(str[i]) >= 48) and (ord(str[i]) <= 57) then inc(count);<br>end;
writeln('Количество цифр = ',count);
end.
(558 баллов)
Похожие задачи