// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Вводите:');
s.ToWords.Where(x->x=ReverseString(x)).PrintLn;
end.
<u><em>Тестовое решение:</em></u>
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган и с в шалаш
<u>Вариант, если исключить однобуквенные:</u>
// 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.
<u><em>Тестовое решение:</em></u>
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган шалаш
1)
Program n1;
var n,sum,i: integer;
begin
readln(n);
sum:=0;
for i:=2 to n do if i mod 2=0 then sum:=sum+i;
write(sum);
end.
2)
Program n2;
var i,sum: integer;
begin
sum:=0;
for i:=10 to 99 do sum:=sum+i;
write(sum);
end.
'Microsofr QBasic 1.0
SCREEN 12
LINE (100, 150)-(350, 300), 3, B
LINE (350, 100)-(450, 300), 3, B
CIRCLE (200, 330), 30, 3, , , 640 / 480
CIRCLE (400, 330), 30, 3, , , 640 / 480
В цикле прибавит 7 к самой себе 9 раз, т.е 7*9=63
Ответ: 63
Var
N: integer;
s: string;
i,c: byte;
begin
ReadLn(N);
Str(N,s);
c:=0;
for i:=1 to Length(s) do
if s[i] in ['0','2','4','6','8'] then
Inc(c);
WriteLn(c);
end.