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



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

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. 

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.