Var
i: real; //Натуральное число
begin
readln(i); //Считал число
while (i > 5) do //В условном цикле...
i := i / pi; //...преобразовал число
writeln(i); //Вывел число
end.
640*512 * 7 = 2 293 760 бит = 286 720 байт = 280 Кбайт
"Слияние слоев" -photoshop
"Закрепить слои" -corel
var a,b : real;
begin
read(a,b);
if (a<0) and (b<0) then Writeln(sqrt(a/b)) else
Writeln(a*3,' ',b+7);
end.
Ответ:
div - целая часть от деления: a=42;
mod - остаток от деления: b=2;