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



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

var a,i,n,sum: integer;beginwriteln('Введите количество чисел');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);readlnend.