Упрости и запиши верный ответ.

(B∨M)&(B∨M¯¯¯¯)

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.

6, понедельник, иа, 1, на печи,клюв, царь, марка, гласных 10, согласных 21, всего 33

var x,s,n: integer;

begin

  repeat

        read(x);

        if x< 0 then n: = n +1;

        if x > 0 then s: =s+x;

  until x=0;

  writeln(n,s);

end.

s=v0*t+at^2\2

s=0*5+2*5^2\2=50\2=25м