290 * 39 * 67 = 757770 символов
Для кодирования одного символа требуется 1 байт, значит для кодирования 757770 символов потребуется 757770 байт.
757770 байт = 740 кбайт = 0,72 мбайт
Значит, книгу можно разместить на дискете
Var a:real;
begin
write ('Введите стоимость 1 пирожка: ');
readln (a);
writeln ('Стоимость 2 пирожков = ',a*2);
writeln ('Стоимость 3 пирожков = ',a*3);
writeln ('Стоимость 4 пирожков = ',a*4);
writeln ('Стоимость 5 пирожков = ',a*5);
writeln ('Стоимость 6 пирожков = ',a*6);
end.
Если нужна программа с n кол-во пирожков, где n вводится с клавиатуры, то вот:
var a,n:real;
begin
write ('Введите стоимость 1 пирожка: ');
readln (a);
write ('Введите кол-во пирожков: ');
readln (n);
writeln ('Стоимость ',n,' пирожков = ',a*n);
end.
<span>Сколько бит видеопамяти занимает информация об одном пикселе на ч/б экране (без полутонов)?
ответ 1 бит</span>
пиксель = 1 точка
для черно-белого изображения (без полутонов) для одного пикселя подается либо 1 - включено либо 0 - выключено, всего 1 бит
<span> Какой объем видеопамяти необходим для хранения
четырех страниц изображения, если битовая глубина равна 24, а
разрешающая способность дисплея- 800 х 600 пикселей?
ответ 24*800*600 бит = </span><span>
11520000
</span>бит = <span>
1 440 000
</span>байт ( = 1,4 Мб )
то что в скобках - не уверен в точности
Program semchisel;
Var a,i,sum,proiz:integer;
Begin
proiz:=1; sum:=0;
for i:=1 to 7 do
begin
read(a);
if (a<3) then proiz:=proiz*a;
if (a>3) then sum:=sum+a;
end;
Writeln('proiz=', proiz, ' ', 'sum=',sum);
Readln;
End.