Урок 17. Задача №1. Решение.

Primary tabs

Firons's picture
Submitted by Firons on Thu, 05/07/2020 - 20:40

Forums:

Урок 17. Задача №1.

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

var str : string;
  number, code : integer;
begin
  writeln('Enter arbitrary string: ');
  readln(str);
  Val(str, number, code);
  if(code = 0) then
    writeln(number)
  else
    writeln('Error!!!');

  readln(); // Удержание консоль
end.// Завершение программы
  • Log in to post comments
  • 1748 reads
vedro-compota's picture

vedro-compota

Sat, 05/09/2020 - 10:28

решение засчитано

_____________
матфак вгу и остальная классика =)