Var
a, b, d, y, x, x0: real;
begin
writeln('Пожалуйста, введите границы отрезка: ');
readln(a, b);
writeln('Пожалуйста, введите шаг: ');
readln(d);
y := sqr(x) + 1 / (x - 4);
x0 := a;
while (x0 <= b) do
begin
if ((x0 - 4) = 0) then writeln('Возникло деление на ноль!') else
writeln('Значение функции f(x) в точке x0 = ', x0, ' = ', sqr(x0) + 1 / (x0 - 4));
x0 := x0 + d;
end;
readln;
end.
Иванов - кассир
Сидоров - заведующий
Борисов - контролёр
64 цвета => объём, который занимает 1 точка изображения в памяти, равен 6 бит (2^6 = 64)
512*64*6 = 2^7*2^6*2*3 = 2^14*3 (объём в битах)
1 Кбайт = 2^13 бит
2^14*3 / 2^13 = 2*3 = 6 Кбайт