Привет
здаров
приветульки
здравствуй мой друг
здравствуйте мой друг
1) 3
2) 1
3) 1
4) 4
5) 1
6) 1
Переменная chp должна быть типа integer. И нужно исправить строку<em> s[1]:=chp; </em>на строку <em>s[1]:=s[chp];</em>
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.
Ответ:
program Change;
var
n, i, j, t: Integer;
A: array of Integer;
begin
Write ('Введите четное число N: ');
ReadLn (n);
if n mod 2 = 0 then begin
SetLength (A, n);
Randomize;
for i := Low (A) to High (A) do begin
A [i] := Random (100);
Write (A [i] :3, ' ');
end;
i := 0;
while i < n do begin
t := A [i];
A [i] := A [i + 1];
A [i + 1] := t;
i := i + 2;
end;
WriteLn;
for i := Low (A) to High (A) do begin
Write (A [i] :3, ' ');
end;
end else
WriteLn ('Введено не четное число.');
ReadLn;
end.