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

Question

Фессалоника

23 декабря, 15:26

+3

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