Блок схема во вложении.
Только сразу после элемента "начало" еще нужен блок прямоугольный с N:=20
Program area;var weight,height:real;beginWriteln('введите длинну и ширину комнаты');Readln(weight,height);weight:=weight*height;Write('площадь =',weight);end.
program centner;var kg:integer;beginWriteln('введите количество килограммов');Readln(kg);kg:=kg div 100;Write('центнеров: ',kg);end.
I = K * i
i = 1 бит/пиксель
I = 240 пикселей * 1 бит/пиксель = 240 бит = 30 байт
Ответ: 30 байт.
if (($a+$b+$c) % 2 = 0) {$a = 2*$a; $b = 2*$b; $c = 2*$c;}