Ввести строку и определить, возможно ли её преобразовать в число? - Pascal ABC

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

тут нужно использовать процедуру val
program m1;
var s:string;
v,k:integer;
begin
readln(S);
val(S,v,k);

Код к задаче: «Ввести строку и определить, возможно ли её преобразовать в число? - Pascal ABC»

textual
program m1;
var
  s:string;
  v,k:integer;
begin
  readln(S);
  val(S,v,k);
  If k<>0 then
    Writeln ('Ошибка в позиции ',k,' : ',s[k])
  else
    Writeln ('Значение: ',v);
  readln;
end.

11   голосов, оценка 3.727 из 5


СОХРАНИТЬ ССЫЛКУ