Найти сумму этих цифр. Если в строке встречаются другие символы, необходимо вывести на экран сообщение - Free Pascal

Формулировка задачи:

С клавиатуры вводится строка, состоящая из цифр. Найти сумму этих цифр. Если в строке встречаются другие символы, необходимо вывести на экран сообщение: «Не является числом!» как это сделать?

Код к задаче: «Найти сумму этих цифр. Если в строке встречаются другие символы, необходимо вывести на экран сообщение - Free Pascal»

textual
var s: String; i, n: Integer;
begin
  ReadLn(s); i:=Length(s);
  while (i>0) and (s[i] in ['0'..'9']) do begin
    Inc(n,Ord(s[i])-Ord('0')); Dec(i);
  end;
  if i>0 then WriteLn('Не является числом!')
  else WriteLn('Сумма цифр: ', n);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

9   голосов, оценка 3.778 из 5


СДЕЛАЙТЕ РЕПОСТ