var
v,a,b,c: real;
begin
writeln ('введи длину, ширину и высоту коробки');
read (a,b,c);
v:=a*b*c;
writeln ('объем коробки равен', v);
end.
Должно быть, на задний план, я думаю.
300*1200 - количество пикселей
24 - "вес" каждого в битах.
300*1200*24 - общий вес изображения в битах
/8 - перевод в байты
/1024^2 - перевод в мегабайты.
Возведение в степень
Решение №1
var x,y:integer;
begin
readln(x,y);
if x> y then begin
x:=x+y;
y:=x-y;
x:=x-y;
writeln(x,' ',y);
end.
Тестовое решение:
8 5
5 8
Решение №2
На PascalABC.Net можно сделать проще:
var x,y:integer;
begin
readln(x,y);
if x>y then begin swap(x,y); println(x,y); end;
end.
