Question

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

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.