1024*768*16=12582912
12582912*75=943718400 бит / 8 бит = 117964800 байт / 1024байт = 115200 КБайт /1024 КБайт = 112,5 МБайт/с
.алгоритм вычисления произведение целых чисел
X - (x - 18) div 3 = 69
x - 69 = (x - 18) div 3
0 <= (x - 18) - 3(x - 69) < 3
0 <= -2x + 189 < 3
0 >= 2x - 189 > -3
189 >= 2x > 186
94.5 >= x > 93
поскольку в целых числах, то х = 94
20 звезд.Можно легко проверить,переделав алгоритм.
var s:integer;
procedure F(n: integer);
begin
writeln('*');
if n>0 then begin
writeln('*');
s:=s+1;
F(n-2);
F(n div 2);
F(n div 2);
end;
end;
begin
f(7);
writeln(s);
end.
Так понимаю, консольный Delphi - это Pascal?)
var x, y, a, k: real;
begin
readln(a, y);
if (a > y) then
begin
x := a / 100;
writeln(x);
end;
if (a < y) then
begin
k := 100 * abs(a);
writeln(k);
end;
<span>end.</span>