//PascalABC.Net 3.1.0.1200
var
x0, xk, dx, x: real;
function f(x: real): real;
begin
f := x * x * x + 3;
end;
begin
write('Введите промежуток и шаг ([a,b] h) ');
readln(x0, xk, dx);
x := x0;
writeln(' x ':10, ' | ', ' f(x) ':10);
repeat
writeln(x:10:3, ' | ', f(x):10:3);
x := x + dx;
until x > xk;
end.
Код Pascal:
Var
P:byte;
Begin
Write('Введите рост человека: ');ReadLn(P);
if P > 180 then WriteLn('Высокий')
else WriteLn('Не очень высокий')
End.
Пример работы программы:
Введите рост человека: 150
Не очень высокий
Template <typename T>
inline T const& LinearRoot (T const& y, T const& k, T const& b) {
return (y - b) / k;
}
При использовании 65536 цветов для хранения цвета одного пикселя необходимо log(2)65536 = 16 бит, п<span>ри использовании 16 цветов - log(2)16 = 4 бита. В результате преобразования изображения объем памяти уменьшится в 16/4 = 4 раза.</span>
Кирилл удалил слово "Телец"
Объём оказался на 14 байт меньше, а 14 байт = 14 * 8 = 112 бит
Каждый символ кодируется 16 битами.
112 / 16 = 7
Значит, 7 символов у нас удалены.
Слово "телец" в месте с пробелом и запятой будет занимать 7 символов.