Дана последовательность символов, оканчивающаяся точкой. Выяснить, имеется ли в ней хотя бы одна цифра ...

Question

Информатика

Дигна

12 декабря, 12:21

Дана последовательность символов, оканчивающаяся точкой. Выяснить, имеется ли в ней хотя бы одна цифра ...

+4

Ответы (1)

Знаете ответ на вопрос?

Октавия · Answer 1

Var ch: char;

begin

repeat

read (ch) ;

if ch in ['0' ... '9'] then

begin

writeln ('есть цифра ', ch) ;

exit;

end;

until ch='.';

writeln ('нет цифр') ;

end.