Question

Среди 20 вводимых чисел выберите все кратные 2 или кратные 5 и подсчитайте их сумму. (В Паскале)

Answer 1

var a:array[1..10] of integer;
s,s1:longint;
i,n:integer;
begin
n:=20;
s:=0; s1:=0;
for i:=1 to n do
begin
writeln('Vvedite element ',i);
read(a[i]);
end;
for i:=1 to n do
begin
write(a[i]:4);
end;
writeln;
for i:=1 to n do
begin
begin
if (a[i] mod 2=0) then s:=s+a[i];
end;
begin
if (a[i] mod 5=0) then s1:=s1+a[i];
end;
end;
writeln('Summa kratnix 2 = ',s);
writeln('Summa kratnix 5 = ',s1);
end.

Answer 2

Программа на Pascal для подсчета суммы чисел, кратных 2 или 5 среди 20 вводимых чисел:

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

Эта программа сначала инициализирует переменные `i`, `num` и `sum`. Затем она запускает цикл `for` от 1 до 20, в котором пользователю предлагается ввести число. Если введенное число кратно 2 или 5 (проверяется с помощью операторов `mod`), то оно добавляется к сумме.

По завершении цикла программа выводит сумму чисел, кратных 2 или 5.