Program n1;
var y: real;
x: integer;
begin
write('введите x: ');
readln(x);
if x mod 2=0 then y:=x*x else y:=x*x*x;
writeln(y);
end.
Var num, deg: integer;res: real;i: byte;begin write('Число: '); readln(num); deg:=6; res := 1; i := 0; while i < abs(deg) do begin res := res * num; i := i + 1 end; if deg < 0 then res := 1 / res; writeln(res); readlnend.
Ответ:
===== PascalABC.NET =====
var
a,b : integer;
begin
writeln('введите a,b');
readln(a,b);
if a>b then a:=a-b
else b:=b-a;
writeln('Максимальное = ',max(a,b));
end.
Объяснение:
Экран 800 х 600 пикселей, всего на экране 800 х 600 = 480000 пикселей
Глубина цвета 32 бита для каждого пикселя, или 32 / 8 = 4 байта
Для хранения изображения потребуется 480000 * 4 = 1920000 байта.
1920000 / 1024 = 1875 Кбайт
Ответ: 1875 Кбайт