Найди объём шара, если длина радиуса вводится с клавиатуры.
Объём шара вычисляется по формуле: V=4/3π⋅R3. Опиши константу: π=3,14 и ответ должен быть округлён до десятых. Выведи ответ, если длина радиуса 8

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.

в секунду передается 512кбит=512/8кбайт=64кбайт

за четыре минуты передалось 4*60*64=15360кбайт

в одном мбайте 1024 кбайт ⇒15360кбайт=15360/1024мбайт=15мегабайт

ответ: 15 мегабайт

если положить, что вода замерзает при нуле градусов, то:

 

program ice;

var temp : integer;

begin

writeln('введите температуру');

read(temp);

if temp > 0 then write ('вода не замерзнет')

else write('вода замерзнет');

end.

Var a,b,c,t: integer; begin   read(a,b,c);   writeln('a': 4,'b': 4,'c': 4);   writeln(a: 4,b: 4,c: 4);   t: =a;   writeln(a: 4,b: 4,c: 4);   a: =c;   writeln(a: 4,b: 4,c: 4);   c: =b;   writeln(a: 4,b: 4,c: 4);   b: =t;   writeln(a: 4,b: 4,c: 4); end.