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

Переменная 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.

Answer 2

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.

Answer 3

Привет! Похоже, что ты хочешь написать программу на языке Pascal, которая меняет местами первую и последн

Answer 4

Ваш код содержит несколько ошибок. Давайте разберем их по порядку:

1. Ошибка в объявлении переменных: - Вместо `uses crt;` вам следует использовать `uses crt;` (без пробела между `uses` и `crt`). - Вместо `var a,n,code:integer;` вам следует использовать `var a,n,code:integer;` (без пробелов перед и после запятых).

2. Ошибка в обращении к символам строки: - Вместо `chp:=length(s);` вам следует использовать `chp:=s[length(s)];` для получения последнего символа строки.

3. Ошибка в обмене символами: - Вместо `s[1]:=chp;` вам следует использовать `s[1]:=chp;` для замены первого символа строки на последний символ.

4. Ошибка в преобразовании строки обратно в число: - Вместо `val(s,n,code);` вам следует использовать `val(s,n,code);` для преобразования строки `s` в число `n`.

Вот исправленный код:

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:=s[length(s)];
  s[1]:=chp;
  s[length(s)]:=ch1;
  val(s,n,code);
  writeln('Из числа ',a,' получилось число ',n);
end.

Теперь ваш код должен работать правильно. Если у вас возникнут еще вопросы, не стесняйтесь задавать!