Это принтер и книга они являются исполнителями
2^25=33554432 бит = 4194304 байт = 4096 кбайт = 4 мбайт
var a, n, b:integer;
begin
for a := 170 to 180 do;
readln(n);
b := a mod n;
writeln('Ответ:', b);
end.
(Не уверен, но возможно правильно :) )
Можно использовать формулу:
=СТЕПЕНЬ(A1*B1*C1;1/3)-ОТБР(СТЕПЕНЬ(A1*B1*C1;1/3))
//Я слабо себе представляю как выглядит блок-схема с подпрограммой, так что выкладываю два варианта
//Pascal ABC.NET v3.1 сборка 1219
Var s:real; i,j,d1,d2,r1,r2,k:integer;
function Simple(d,r:integer):real;
begin
Simple:=sqr(d)*(r-1130)*9.8/(18*0.6);
end;
begin
k:=0;
read(d1,d2,r1,r2);
for i:=d1 to d2 do
begin
for j:=r1 to r2 do
begin
s:=s+Simple(i,j);
inc(k);
end;
end;
s:=s/k;
writeln(s);
end.
Пример ввода:
1
5
2
4
Пример вывода:
-11249.1296296296