Question

Напишите программу, которая в последовательности целых чисел определяет их сумму и количество четных чисел, кратных 5. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается число 0(0-признак окончания ввода, не входит в последовательность СРОЧНО, ПОЖАЛУЙСТА, НА ПАСКАЛЕ. ОЧЕНЬ СРОЧНО

Answer 1

Program mas;

var i,k,sum:integer; a:array [1..1000] of integer;

begin

for i:=1 to 1000 do

begin;

readln(a[i]);

if a[i]=0 then break;

end;

k:=0;

sum:=0;

for i:=1 to 1000 do

begin;

sum:=sum+a[i];

if (a[i] mod 2=0) and (a[i] mod 5=0) and (a[i]<>0) then

k:=k+1;

end;

writeln('summa= ',sum);

writeln('kolichestvo=',k);

readln;

end.

Answer 2

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

program SumAndCount;
var
  num, sum, count: integer;
begin
  sum := 0;
  count := 0;

repeat
    write('Введите число: ');
    readln(num);
    
    if (num <> 0) then
    begin
      sum := sum + num;
      
      if (num mod 2 = 0) and (num mod 5 = 0) then
        count := count + 1;
    end;
  until (num = 0);
  
  writeln('Сумма введенных чисел: ', sum);
  writeln('Количество четных чисел, кратных 5: ', count);
end.

Программа начинает с инициализации переменных `sum` и `count` нулевыми значениями. Затем она использует цикл `repeat..until`, чтобы запросить числа от пользователя до тех пор, пока пользователь не введет число 0.

Внутри цикла программа добавляет введенное число к общей сумме (`sum`). Если введенное число является четным и кратным 5, то счетчик (`count`) увеличивается на 1.

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

Пожалуйста, учтите, что это всего лишь пример программы, и вам может потребоваться внести изменения в соответствии с требованиями вашей задачи или языком программирования, который вы используете.