Запусти паскаль и введи программу: var a,b,c: integer; begin a: =−49; b: =abs(a); writeln( abs(−49)= - id595483520221223 от comeback92 23.12.2022 09:07

Question

Информатика: Запусти паскаль и введи программу: var a,b,c: integer; begin a: =−49; b: =abs(a); writeln( abs(−49)= ,b); c: =sqr(b); writeln( sqr(b)= ,c); c: =sqr(b+b); writeln( sqr(b+b)= ,c); end. при запуске программы вывод на экран: abs(−49)= sqr(b)= sqr(b+b)=

comeback92 · 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.

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

MOGZ ответил