Введите с клавиатуры 5 положительных целых чисел. Вычислите сумму тех из них, которые делятся на 4 и при этом заканчиваются на 6. Программа должна вывести одно число: сумму чисел, введенных с клавиатуры, кратных 4 и оканчивающихся на 6. Пример работы программы:

Входные данные
12
16
36
26
30
Выходные данные
52
сделать это на паскале

Текущее значение суммы сохраним в переменной s, в начале s = 0.

В цикле 5 раз считаем с клавиатуры число, если оно кратно 4 и оканчивается на 6 (иначе говоря, если остаток от деления на 4 равен нулю, а остаток от деления на 10 равен 6), то увеличиваем s на введенное число.

В конце выводим значение переменной s.

Код (Pascal):

var

 i, s, temp: integer;

begin

 s := 0;

 for i := 1 to 5 do

 begin

   read(temp);

   if (temp mod 4 = 0) and (temp mod 10 = 6) then

     s := s + temp;

 end;

 write(s)

end.

наливаем в 5 литров в "5". переливаем его в "9". наливаем еще полное "5" и снова переливаем его в "9". в "5" остается 4л. переливаем сюда литр из "9" (итог: "9"=8, "5"=5) из "5" выливаем  все. переливаем сюда из "9".

итог: в "9" ровно 3 л.

290*39*67=757770 - всего символов

для кодирования  757770 символов потребуется   757770 байтов

757770байт < 1,44    мбайт

да, книга поместиться на дискетку