Question

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



Пример работы программы:



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

Answer 1

Текущее значение суммы сохраним в переменной 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.