необходимо провести робота из начального положения (♦️) в точку А, закрашивая при этом указанные клетки поля. Размеры стен и расстояние между ними могут быть произвольны.

а)

var

    p,d,h: real;

begin

    readln(h);

    p: =1200*9.8*h;

    writeln(p);

end.

б)

var

    m,h,r: real;

begin

    readln(h);

    readln(r);

    m: =1200*3.14*h*r*r;

    writeln(m);

end;

в) необходимы дополнительные условия количество сосудов

если принять количество сосудов за k тогда

var

    i,k: integer;

    m,h,r,s: real;

begin

    readln(k);

    s: =0;

    for i: =1 to k do

    begin

            readln(h);

            readln(r);

            m: =1200*3.14*h*r*r;

            s: =s+m;

    end;

    writeln(s);

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.

t=t ожидание+t передачи

t ожидания= 1024*1024*8/2^20=8сек

t передачи=9мб*1024*1024*8/2^13=9216сек

t=9224 секунды