Высказывание А «х – четное число», высказывание Б «х – делится на 5». Какой результат даст логическое сложение АVБ

1) «Сегодня » – с пробелом (но без кавычек) 8 байт «7 июля » – с двумя пробелами (без кавычек) 7 байт «2011 г.» – с пробелом и с точкой (без кавычек) 7 байт. Итого: 8 + 7 + 7 = 22 байта «весит» фраза «Сегодня 7 июля 2011 г.»

2) В одной строке помещается 60 символов. Значит, объём одной строки 60 байт.

На странице 40 таких строк, в каждой из которых содержится по 60 байт. Поэтому объём одной страницы текста 60 x 40 = 2400 байт = 2,4 Килобайта = 2,4 Кб

Объём одной книги 2400 x 100 = 240 000 байт = 240 Килобайт = 240 Кб

Объяснение:

Замечание. Так как количество вводимых чисел заранее не известно, то откроем бесконечный цикл со всегда верным условием True, но как только будет введено число 0, остановим цикл командой break.

Программа:

program z;
var k,s,x:integer;
begin
k:=0;              {начальное значение количества двузначных чисел}
s:=0;              {начальное значение суммы двузначных чисел}
while True do  {открываем бесконечный цикл}
begin
readln(x);        {вводим число х}
if x=0 then break;  {если введенное число равно 0, то остановить цикл}
if (x>9)and(x<100) then  {если число двузначное, т.е. от 10 до 99} 
    begin 
    k:=k+1;         {количество увеличиваем на 1}
    s:=s+x;         {увеличиваем предыдущее значение суммы на число х}
    end;
end;
if k=0 then writeln('NO')  {если двузначных чисел не было, то вывод NO}
   else writeln(s/k);          {иначе вывод ср.арифметического}
end.