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

Question

Информатика

Аргентея

10 июня, 12:35

Составьте программу, нахождения суммы чисел от 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.