Ответы
Ответ дал:
0
var A, C: string;
b: integer;
begin
read (A);
C:=A;
b:=length(A);
A[1]:=A[b];
A[b]:=C[1];
write (A);
end.
b: integer;
begin
read (A);
C:=A;
b:=length(A);
A[1]:=A[b];
A[b]:=C[1];
write (A);
end.
Ответ дал:
0
Program slovo;
var A,C:string; {Описание строковой переменной}
i:integer;
begin
read(A);
write('Первоначальное слово: ',A);
C:=A; {"копирование" значения длинны строки(т. к. оно в дальнейшем быдет изменено)}
i:=length(A); {Присвоение переменной i значения длинны строки}
A[1]:=A[i]; {Присвоение первому значению значение последнего}
A[i]:=C[1]; {Присвоение последнеe значению значение первого}
write('Полученное слово: ',A);
end.
var A,C:string; {Описание строковой переменной}
i:integer;
begin
read(A);
write('Первоначальное слово: ',A);
C:=A; {"копирование" значения длинны строки(т. к. оно в дальнейшем быдет изменено)}
i:=length(A); {Присвоение переменной i значения длинны строки}
A[1]:=A[i]; {Присвоение первому значению значение последнего}
A[i]:=C[1]; {Присвоение последнеe значению значение первого}
write('Полученное слово: ',A);
end.
Вас заинтересует
6 лет назад
9 лет назад
9 лет назад
9 лет назад