For i: =0 to 10 do a[i]: =i*2; for i: = 10 downto 0 do begin k: =a[10-i]; a[10-i]: =a[i]; a[i]: =k; - id689361520211026 от malcolmyang 26.10.2021 21:45

Question

Информатика: For i: =0 to 10 do a[i]: =i*2; for i: = 10 downto 0 do begin k: =a[10-i]; a[10-i]: =a[i]; a[i]: =k; end.

malcolmyang · Accepted Answer

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Вводите:');
s.ToWords.Where(x->x=ReverseString(x)).PrintLn;
end.

Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган и с в шалаш

Вариант, если исключить однобуквенные:

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Вводите:');
s.ToWords.Where(x->x=ReverseString(x)).
Where(x->x.Length>1).PrintLn;
end.

Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган шалаш

For i: =0 to 10 do a[i]: =i*2; for i: = 10 downto 0 do begin k: =a[10-i]; a[10-i]: =a[i]; a[i]: =k; end.

MOGZ ответил