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

kmidakova kmidakova    3   22.05.2019 03:00    8

Ответы
ronaldopenzap016aa ronaldopenzap016aa  17.06.2020 03:30

не уверена но думаю так:
var a,s : integer;
begin
s:= 0
readln (a);
while a<>0 do
begin
if(a mod 5=10) and (a mod 2=0) then
s:=s+1
readlln(a)
end
writeln(s)
end 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика