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

Question

Информатика

Федосья

24 сентября, 19:58

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

+2

Ответы (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.