1.5*1024*1024*8/2048 = 6144 секунды
Var
i,n:integer;
s:real;
begin
readln(n);
for i:=1 to n do
s:=s+1/i;
writeln(s:4:2);
end.
640 * 480 = 307200 точек на экране
64 Кбайт / 307200 = 64 * 1024 байт / 307200=0,64 * 8 бит/ 3 = 1,7 бит, т.е. больше двух цветов не получится.
Var
x,y: integer;
v: integer;
begin
write('Введите x,y: ');
readln(x,y);
if x>y then
begin
v := x;
x := y;
y := v
end;
writeln('Результат упорядочения по возрастанию: ',x,' ',y);
end.
Фигура становится плоской.