Question

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

Answer 1

Var ch: char;
begin
  repeat
    read(ch);
    if ch in ['0'..'9'] then
    begin
      writeln('есть цифра ',ch);
      exit;      
    end;
  until ch='.';  
  writeln('нет цифр');
end.

Answer 2

//прога на Pascal`е
var
cifra: set of char = ['0'..'9'];
s: string;
i: byte;
begin
writeln ('Введите последовательность символов: ');
readln (s);
for i:=1 to length (s) do
if s[i] in cifra then
begin
write ('На ', i, ' месте стоит цифра ', s[i]);
exit;
end;
write ('В строке нет цифр');
end.