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

Question

Фадей

3 ноября, 01:44

+4

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