Урок 18 Задача 01

Урок 18 Задача 1

Пользователь вводит строку, проверьте является ли она числом, если да, то выведите в ответ это число, иначе сообщите об ошибке.

Решение:

program u18z01;
var s:string;
  n,Code:integer;
begin
  writeln('Vvedite stroku');
  readln(s);
  Val(s,n,Code);
  if Code = 0 then
    writeln(n)
  else
    writeln('Error');
  readln();
end.

Консоль:

Vvedite stroku
asdf
Error

Vvedite stroku
123
123