Найти среднее арифметическое всех целых чисел в промежутке от 1 до 100

var i,s: integer;

begin

  for i: = 1 to 100 do

      s: = s+ i;

  writeln(s/100);

end.

 

program zilly; uses crt; const n=10; var  a,b,c: real;   tup,pryam: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   tup: =0;   pryam: =0;   writeln('введите стороны треугольника');   write('а = '); readln(a);   write('b = '); readln(b);   write('c = '); readln(c);   a: =a*a;   b: =b*b;   c: =c*c;   if a=b+c then pryam: =1;   if b=a+c then pryam: =1;   if c=a+b then pryam: =1;   if a> b+c then tup: =1;   if b> a+c then tup: =1;   if c> a+b then tup: =1;   if tup=1 then writeln('треугольник тупоугольный')       else          if pryam=1 then writeln('треугольник прямоугольный')                else writeln('треугольник остроугольный'); end.

21 =  10101

 

46 =  101110

-90 =1111111111111111111111111111111111111111111111111111111110100110

есть еще вариант   -90 = -1011010 но первый типа правильней   будет 

19 =  10011

16,78 =  10000.11001000

14,21 =1110.00110110

 

теперь записываем в двух байтовые ячейки ( две по 8 )

21 =  10101   =   0000 0000 0001 0101

46 = 101110 =   0000 0000 0010 1110 

-90 = 10110110 = 0000 0000 1011   0110 операция not 1111 1111 0100 1001

16.78 =   0001 0000 1100 0111

14.21 =  0000 1110 0011 0101