Десятичная: 8
Двоичная:1000
Восьмеричная: 10
Шестнадцатеричная:8
var
x: real;
begin
Write('Введите значение аргумента, не равное нулю: '); Readln(x);
if x = 0 then Writeln('Нулевой аргумент недопустим!')
else Writeln(sqr(x) * abs(1 - x) - 7 / (sqr(x) - 15))
end.
<u>Тестовое решение:</u>Введите значение аргумента, не равное нулю: 24.35
13844.7282626493
1 + 1 + 1 + 1 = 4
Если я не косоглазый. Условие лучше в следующий раз записывать в логическом порядке
При использовании палитры из 256 цветов для хранения одной точки изображения требуется log(2)256 = 8 бит = 1 байт.
Объем видеопамяти для хранения всего изображения = 720*348*1 байт =
720*348/1024 Кбайт ≈ 245 Кбайт