Здравствуйте! Помогите пожалуйста. Что я сделал не так? За ранее большое спасибо!!! (20б)...

Question

Здравствуйте! Помогите пожалуйста. Что я сделал не так? За ранее большое спасибо!!! (20б) uses crt; var a,n,code:integer; var s:string; var ch1,chp:char; begin writeln('Введи число, первые и последние цифры поменяются местами'); readln(a); str(a,s); ch1:=s[1]; chp:=length(s); s[1]:=chp; s[chp]:=ch1; val(s,n,code); writeln('Из числа ',a,' получилось число ',n); end.

Answer 1

var a, n, code: integer;

var s: string;

var ch1: char;

begin

 writeln('Введи число, первые и последние цифры поменяются местами');

 readln(a);

 str(a, s);

 ch1 := s[1];

 s[1] := s[length(s)];

 s[Length(s)] := ch1;

 val(s, n, code);

 writeln('Из числа ', a, ' получилось число ', n);

end.

Comments

Это что, турбопаскаль какой-то или фрипаскаль?

---

ABC.NET

---

в PascalABC.NET это все можно записать проще

---

Да, я знаю, но нам дали только такие команды

Answer 2

Переменная chp должна быть типа  integer. И нужно исправить строку s[1]:=chp; на строку s[1]:=s[chp];

uses crt;

var a,n,code,chp:integer;

var s:string;

var ch1:char;

begin  

writeln('Введи число, первые и последние цифры поменяются местами');

readln(a);

str(a,s);

ch1:=s[1];

chp:=length(s);

s[1]:=s[chp];

s[chp]:=ch1;

val(s,n,code);

writeln('Из числа ',a,' получилось число ',n);

end.