Пожалуйста добрые люди помогите 80б!!!Решить данную задачу на Паскале
Напишите программу, чтобы создавала палиндром любой строки. Палиндром - исходная строка + обратное представление строки (на входе – abc; на выходе abccba)
Ответы
Ответ дал:
0
1. Современное решение
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
s:=s+s.Inverse;
s.Println
end.
Пример
abc
abccba
2. Так все еще учат в большинстве (но уже не во всех!) школ
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.
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
s:=s+s.Inverse;
s.Println
end.
Пример
abc
abccba
2. Так все еще учат в большинстве (но уже не во всех!) школ
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.
Ответ дал:
0
А есть какой то другой способ?
Ответ дал:
0
мы c downto еще не работаем
Ответ дал:
0
program Palindrom;
var
s,s1:string;
i,n:integer;
begin
Readln(s);
s1:='';
for i:=1 to Length(s) do s1:=s[i]+s1;
s:=s+s1;
Writeln(s)
end.
var
s,s1:string;
i,n:integer;
begin
Readln(s);
s1:='';
for i:=1 to Length(s) do s1:=s[i]+s1;
s:=s+s1;
Writeln(s)
end.
Ответ дал:
0
спасибо))
Ответ дал:
0
Пожалуйста
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад