С клавиатуры вводится текст. Слова разделяются пробелом. Ввод текста прекращается после нажатия на клавиатуре точки. Посчитать количество цифр в этом тексте.
Программа на языке Pascal
Аноним:
Можно уточнить, какая именно версия Pascal? Потому что версии для Windows (например, PascalABC.Net) при вводе используют стандартные процедуры Windows и обработка ввода в них всегда заканчивается по нажатию клавиши Enter - в этом случае мы не можем в процессе ввода отслеживать нажатие клавиши с точкой и только в уже введенной строке вынуждены обрабатывать строку до первой точки.
Ответы
Ответ дал:
1
var
str : string;
i, num : integer;
begin
readln(str);
num := 0;
for i := 1 to length(str) do
if str[i] in ['0'..'9'] then
num := num + 1;
writeln(num);
end.
str : string;
i, num : integer;
begin
readln(str);
num := 0;
for i := 1 to length(str) do
if str[i] in ['0'..'9'] then
num := num + 1;
writeln(num);
end.
У Вас не использовано условие "Ввод текста прекращается после нажатия на клавиатуре точки".
Иногда данное условие превращают в "Концом текста является точка", именно об это я и подумал. Плюс, наверное, в условие было не количество цифр, а количество чисел, но это уже не моё дело.
условии*
На точку Вы тоже не проверяете.
Окей, ладно, признаю, был не прав. Если действительно углубляться в суть вопроса и делать Именно так, как в сказано в условии, то моё решение не подойдёт
Вас заинтересует
2 года назад
2 года назад
2 года назад
7 лет назад
9 лет назад