Program morningglory;
uses crt;
var y,i:integer;
P:=1;
begin
for i:=100 to 999 do
if i mod 7=3 then
begin
P:=P*i);
end;
writeln ('Произведение чисел, дающих при делении на 7 остаток 3 =',P);
end.
Восемь бит - это один байт.
В одном килобайте 1024 байта.
Объём одной страницы текста: V1=64*12=768 байт
У нас их 32 т.е. объём книги 32*768=24 576 байт
Переводим в килобайты 24 576 / 1024= 24 Килобайта
Ответ: 24 Килобайта.
512 байт= 4096 бит=0,5 Кбайт
Red(красный), Green(Зеленый), Blue(Синий)
Program da;
var a,b:integer;
begin
write('Введите а:');
readln(a);
write('Введите b:');
readln(b);
if (a>2) and (b<=3) then
writeln('Правда');
else
write('Ложь')
end.