40 * 50 * 256 = 512000 /8 = 64000 байт
40 * 50 * 16 = 32000 /8 = 4000 байт
40 * 50 * 2 = 32000 /8 = 500 байт
Крипты, Услуги, Выполняй задания чтобы получать денег, как Appbonus, NVuti
var
b, p: real;
i: byte;
begin
p := 1;
for i := 0 to 47 do
begin
b := cos(i) * (sqr(i) / (i + 8));
if (abs(b) <= 25) then
p := p * i;
if (i >= 18) then //Верхняя граница и так задана, так что нужно только нижнюю приткнуть
write(i, ' '); //Вывод очередного числа
end;
writeln(#13, p); //Вывод произведения
end.
program znan;
var
x:array [1..1000, 1..1000] of real;
m,n,i,j:LongInt;
begin
ReadLn(n,m);
for i:=1 to n do
for j:=1 to m do
begin
Read(x[i,j]);
if x[I,j]>=0 then
x[I,j]:=x[I,j]*5 else
x[I,j]:=x[I,j]/2;
end;
end.