Var
i,n,k:integer;
s:string;
begin
readln(s);
n:=length(s);
for i:=1 to n div 2 do
if s[i]=s[n-i+1]then
k:=k+1;
if k=n div 2 then
writeln('y')
else
writeln('n');
<span>end.</span>
var
n, r: integer;
begin
write('n = ');
readln(n);
writeln;
while (n > 0) and (r < > 2) do
begin
r : = n mod 10; { < == последняя цифра числа }
n : = n div 10 { < == удаляем последнюю цифру }
end;
writeln(r = 2); { < -- выводим значение выражения (r=2) }
readln
end.
В 1-ое ведро налить 1 целый черпак и половину черпака, а во второе тоже самое
I = 165: 33=5
N= 2^5= 32 ( 2 в пятой степени, если не понятно )