800 * 600 = 480000 пикселей, так как глубина цвета 24 , 480000 * 24 = 11520000 бит, переведём 1440000 байт/1024 = 1406.25 кбайт, так как 4 страницы , 1406 * 4 = 5625 кбайт
Решение задачи показано в прилагаемой таблице.
Const n=20;
var sum:integer;
i:byte;
begin
sum:=0;
i:=1;
repeat
sum := sum + i;
i := i+1;
until (i=n);
end.
1) количество цифр
2) сумма цифр
3) произведения
4) среднее арифметическое
5) сумма квадратов
6) сумма кубов
Var x, a : real;
begin
readln(a);
x := arctan(1/(power(E, a) + 1)) + PI;
writeln(x);
end.