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

Question

Информатика

Абросим

11 октября, 19:19

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

+1

Ответы (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.