Составьте программу, нахождения суммы чисел от 1 до 30, которые делятся без остатка на 2 и 3, но не делятся на 4

Question

Информатика

Каллиникия

22 марта, 06:19

Составьте программу, нахождения суммы чисел от 1 до 30, которые делятся без остатка на 2 и 3, но не делятся на 4

+3

Ответы (1)

Знаете ответ?

Никеня · Answer 1

Var i, sum:integer;

begin

sum:=0;

for i:=1 to 30 do

if (i mod 2=0) and (i mod 3=0) and (i mod 40) then sum:=sum+i;

writeln ('Ответ: ', sum) ;

readln

end.