Var s,s1,l:string;i:integer;
begin
writeln ('Введите слово');
readln (s);
s:=lowercase (s);
for i:=length(s) downto 1 do
begin
l:=s[i];
insert (l,s1,length(s)-i+1);
end;
if (s1=s) then writeln ('Это "перевёртыш"') else writeln ('Это не "перевёртыш"');
end.
125 829 120 Бит в 15 Мбайт
38. 1 (*4) => 4 (*4)=> 16(-3) => 13(*4) => 52(-3) =>49
=> - команды
39. 5(+3)=>8(+3)=>11(^2)=>121(+3)=>124(+3)=> 127
40. 5(+1)=>6(^2)=>36(+1)=>37(+1)=>38(+1)=>39
Саша комбайнер Коля садовник Петя тракторист