С клавиатуры вводится слово. Получить новое слово, образуемое путем прочтения исходного слова, начиная с его конца.
Pascal ABC
Ответы
Ответ дал:
0
Var
S,B:string;
i:integer;
Begin
Write('Введите строку: ');ReadLn(S);
For i:= Length(S) downto 1 do
B:=B+S[i];
WriteLn('Перевёрнутая строка: ',B);
End.
S,B:string;
i:integer;
Begin
Write('Введите строку: ');ReadLn(S);
For i:= Length(S) downto 1 do
B:=B+S[i];
WriteLn('Перевёрнутая строка: ',B);
End.
Вас заинтересует
5 лет назад
8 лет назад
9 лет назад