Program chisloq;
uses crt;
var q: real;
begin
writeln ('Введите число');
readln (q);
if (q <150) and (q>100) and
((q>120) or (q <120)) then
writeln ('ВЕРНО')
else writeln('НЕВЕРНО');
end.
Решение 8 задания - в файле. А вообще-то, учебник надо читать!
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadlnString.Inverse)
end.
<u>Пример</u>
слово
оволс
65536 цветов = 2^16
глубина цвета 16 бит
Объём изображения
1024*768*16 = 12582912 бит
12582912 бит / 8 = 1572864 байт / 1024 =1536 Кбайт / 1024 = 1,5 Мб
Изображение на мониторе займёт в видеопамяти 1,5 Мб
K=512*128=65536
N=256
i=8
I=K*i=65536*8=524288бит=64Кбайт