Opidi
5 год назад
Пожалуйста добрые люди Пожалуйста посчитайте 80б!!!Решить данную задачу на Паскале Напишите программу, чтобы создавала палиндром любой строки. Палиндром - исходная строка + обратное представление строки (на входе – abc; на выходе abccba)
ОТВЕТЫ
Svyatoslav
Oct 24, 2020
begin
var s:=ReadlnString;
s:=s+s.Inverse;
s.Println
end.
abc
abccba
program Palindrom;
var
s:string;
i,n:integer;
begin
Readln(s);
for i:=Length(s) downto 1 do s:=s+s[i];
Writeln(s)
end.
747
Смежные вопросы:
