Составить программу в паскале которая ,находит среднее арифметическое натуральных чисел, меньших 200 и кратных 7.

begin

 Range(7, 200, 7).Average().Print();

end.

//PascalABC.NET 3.5.X

или

Пример работы:

чтобы закодировать любое число от 1 до 4000 нужно i=12 бит (2^i = 4000; i=12 бит). 300 * 12 = 3600 бит = 450 байт.

program mss; uses crt; var v,m,h,r: real; beginclrscr; writeln('введите радиус'); readln(r); writeln('введите высоту'); readln(h); v: = 3.14*sqr(r)*h; m: = 1200*v; writeln('    ',m: 2: 2,' кг'); readln; end.