Question

Напишите программу в паскале, которая в последовательности натуральных чисел определяет количество кратных 5 и оканчивающихся 0. программа получает количество чисел на вход, а затем сами числа.

Answer 1

Ответ:

var a,b,i,s:integer;

begin

read (a);

s:=0;

for i:=1 to a do

begin

read (b);

if (b mod 5=0) and (b mod 10=0) then

s:=s+1;

end;

write(s);

end.

Объяснение:

PS: python лучше

Answer 2

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

pascalCopy code
program CountMultiplesOf5;

var
  n, num, count, i: integer;

begin
  // Вводим количество чисел
  write('Введите количество чисел в последовательности: ');
  readln(n);
  
  // Инициализируем счетчик кратных 5 и оканчивающихся на 0
  count := 0;
  
  // Считываем числа и проверяем, являются ли они кратными 5 и оканчиваются на 0
  writeln('Введите числа последовательности:');
  for i := 1 to n do
  begin
    read(num);
    if (num mod 5 = 0) and (num mod 10 = 0) then
      count := count + 1;
  end;
  
  // Выводим результат
  writeln('Количество чисел, кратных 5 и оканчивающихся на 0: ', count);
end.

В этой программе сначала запрашивается количество чисел в последовательности. Затем программа вводит сами числа, проверяет каждое число на кратность 5 и оканчивание на 0, и увеличивает счетчик, если число удовлетворяет условию. Наконец, программа выводит количество чисел, соответствующих условиям.