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

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

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


textual

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

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.
Эта работа вам не подошла?

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


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

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

Источник