Диалоговые окна и окна папок
Вот здесь почитайте пожалуйста
Var i,q,a:integer;
begin
for i:=1 to 20 do begin
read(a);
q:=q+a;
end;
writeln(q);
end.
Без прелюдий, только основная часть программы:
While (p<>1)
do begin
readln(p);
{a)} if p mod 7 = 0
then a+=1;
{б)} if (p>10) and (p<=100)
then b+=p;
{в}if (p mod 3 =0) and (p mod 5 = 0)
then s+=p;
end;
...
Это для паскаль ABC или ABC.NET
<em>Решение.</em>
Мощность компьютерного алфавита равна 256. Один символ несет 1 байт информации.
Значит, страница содержит 40*60=2400 байт информации. Объем всей информации в книге: 2400*150 = 360 000 байт.
<em>Ответ:</em>360 000 байт