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

Question

Фессалоника

5 апреля, 05:50

+1

Ответы (2)

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

Лела · Answer 1

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.

Арюша · Answer 2

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.