Var s,s1,t1,t2:string;i,n,m:integer;
beginread(s);n:=length(s);for i:=n downto 1 do s1:= s1 + s[i];m:=n div 2;writeln(n, m :4);t1:= copy(s,1,m);t2:= copy(s1,1,m);if t1 = t2 then writeln ('Введенный текст перевертыш')else writeln (' Не перевертыш введенный текст');end.<span />
Правильный ответ С 4 !!!!!!!!
<span> "бот" =8,"вол"=9 "болт"=11,"лото"=12</span>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
a,b,c,sum,p:integer;
sr:real;
begin clrscr;
write('a='); read(a);
write('b='); read(b);
write('c='); read(c);
sum:=a+b+c;
writeln(a,'+',b,'+',c,'=',sum);
p:=a*b*c;
writeln(a,'*',b,'*',c,'=',p);
sr:=sum/3;
writeln('sredn./arifm.=',sr:2:3);
readkey;
end.