Question

РЕШИТЬ В ПРОГРАММЕ ПАСКАЛЬ Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 5

Answer 1

Ответ:

Объяснение:

var n,i,a,s:integer;

begin

write('n = ');

readln(n);

s:=0;

writeln('Введите ',n,' чисел:');

for i:=1 to n do

 begin

 read(a);

 if a mod 5 = 0 then s:=s+a;

 end;

writeln('s = ',s);

end.

Пример:

n = 6

Введите 6 чисел:

12 45 84 37 10 51

s = 55

Answer 2

Конечно, вот пример программы на Pascal, которая решает данную задачу:

pascalCopy code
program SumOfMultiples;
var
  n, i, num, sum: integer;
begin
  writeln('Введите количество чисел в последовательности:');
  readln(n);
  
  sum := 0;
  
  writeln('Введите числа:');
  for i := 1 to n do
  begin
    readln(num);
    if num mod 5 = 0 then
      sum := sum + num;
  end;
  
  writeln('Сумма чисел, кратных 5, равна: ', sum);
end.

Сначала программа запрашивает количество чисел в последовательности. Затем она входит в цикл, где пользователь вводит каждое число последовательности. Если число кратно 5, то оно добавляется к сумме. По завершению цикла выводится сумма чисел, кратных 5.