Знайти суму елементів, значення яких кратне 5
Lazarus
Даю 20 балов
Ответы на вопрос
Ответил mainnoobbrawl
1
Ответ:
program SumMultiplesOfFive;
var
sum, i, n, x: integer;
begin
sum := 0;
writeln('Введите количество элементов в последовательности:');
readln(n);
writeln('Введите элементы последовательности:');
for i := 1 to n do
begin
readln(x);
if x mod 5 = 0 then
sum := sum + x;
end;
writeln('Сумма элементов, кратных 5, равна: ', sum);
readln;
end.
denisnerubasskiy:
спасибо огромное
Новые вопросы
Українська мова,
1 год назад
Химия,
7 лет назад