Найти среднее арифметическое всех целых чисел от 1 до 1000
ассемблер линукс
решить

компьютер входит в состав бытовой техники.

компьютер является надсистемой для компьтерных программ.

var a,b: string; begin                            cls;   read(a);     b: =a;           write('b')end.           

var n,z: longint;

begin

  read(n);

  z: =abs(n);

  z: =z-2;

  writeln(z);

end.

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.