На­пи­ши­те про­грам­му, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел...

Question

На­пи­ши­те
про­грам­му, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет
сумму чисел, крат­ных 3. Про­грам­ма по­лу­ча­ет на вход ко­ли­че­ство чисел в
по­сле­до­ва­тель­но­сти, а затем сами числа. В по­сле­до­ва­тель­но­сти все­гда
име­ет­ся число, крат­ное 3. Ко­ли­че­ство чисел не пре­вы­ша­ет 100. Введённые
числа не пре­вы­ша­ют 300. Про­грам­ма долж­на вы­ве­сти одно
число — сумму чисел, крат­ных 3.



Вход­ные дан­ные: 3,12,25,9
Вы­ход­ные дан­ные: 154

Answer 1

Var a,i,n,sum: integer;
begin
writeln('Введите количество чисел');
readln(n); sum:=0;
for i:=1 to n do begin
 writeln('Введите число');
 readln(a);
 if a mod 3=0 then sum:=sum+a;
end;
writeln('Сумма чисел кратных 3 равна ', sum);
readln
end.