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

khmelevaya khmelevaya    3   18.05.2019 23:20    7

Ответы
Тёмаэх Тёмаэх  12.06.2020 05:04

var a,sum,i:integer;
begin
for i:=1 to 5 do
begin
readln (a);
if (a mod 4=0) and (a mod 10=6) then sum:=sum+a;
end;
writeln (sum);
readln;
end.

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика