Переадресуйте формулу
« =В5*100/С8 »
1)на 1 строку ниже
2) на 1 столбец вправо?

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.

2000 - k

16 бита - i

v=k*i=2000*16=32000 бита=4000 байтов

var s,r: real;

begin

  read(r);

  s: =pi*sqr(r);

  writeln(s: 0: 4);

end.

7 - диск, винт, сиди

9 пробел

10 импорт

11 окно

12ввод

15 стэк ?

16граф

18свич

20тэг