напечатайте слово-палиндром, содержащее самую длинную цепочку из цифр. в паскале
Аноним:
У меня такое чувство, что эта задача имеет бесконечное число решений, поскольку используя процедуру STR здесь можно много чего наворотить (в классике - слово из 255 символоов!!!!)
Ответы
Ответ дал:
0
Я, конечно, сей же час подвергнусь неминуемой критике, но вот перед Вами самое длинное слово-палиндром, поскольку строковая величина S допускает только 255 символов...
uses Crt;
var i:integer;
S, C: string;
begin
ClrScr;
S:='';
for i:=1 to MaxInt do
begin
Str(1,C);
S:=S+C;
end;
WriteLn(' S = ', S);
ReadLn;
end.
uses Crt;
var i:integer;
S, C: string;
begin
ClrScr;
S:='';
for i:=1 to MaxInt do
begin
Str(1,C);
S:=S+C;
end;
WriteLn(' S = ', S);
ReadLn;
end.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
7 лет назад