Написать программу распечатывающую сумму всех чисел кратных 3 от 10 до 20

Question

Туся

21 апреля, 22:30

+2

Ответы (2)

Знаете ответ на вопрос?

Ионка · Answer 1

Var i, n, s:byte;

begin

s:=0;

for i:=10 to 20 do

if (i mod 3=0) then s:=s+i;

write (s) ;

end.

Володя · Answer 2

Var i, n, a:integer;

a:array[1 ... 100] of integer;

begin

for i:=10 to 20 do

if a[i] mod 3=0 then writeln (a[i]) ;

end.