Составьте программу которая подсчитывает количество цифр в строке(коды цифр от 48 до 57)
Нет комментариев
Ответы
Гость Var s: string;
i,n: integer;
begin
n:=0;
write('строка: '); readln(s);
for i:=1 to length(s) do
if ord(s[i]) in [48..57] then inc(n);
writeln(n);
end.
строка: абвг12де0124уст
6
Нет комментариев
Похожие вопросы
Информатика
Составить программу, которая считывает число а, находит его квадрат, выводит результат....
Информатика
Помогите пж почему компьютерные программы для создания текстов называются текстовыми редактороми...
Информатика
Решите карточку!!!!!₽!!!!!!!!!!...
Список предметов
