Question

Для различных вводимых с клавиатуры целых чисел найдите количество чисел, кратных 5. ( Написать программу в PASCAL ) Даю 15 баллов!

Answer 1

Ответ:

Объяснение:

var

 n, i, k, m: integer;

 

begin

 k := 0;

 readln(n);

 for i := 1 to n do

 begin

   readln(m);

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

     inc(k)

 end;

 writeln(k);    

end.

Answer 2

Конечно, я могу помочь вам с этим. Вот пример программы на Pascal, которая запрашивает у пользователя несколько целых чисел и находит количество чисел, кратных 5:

pascalCopy code
program CountMultiplesOfFive;

var
  num, count, i: integer;

begin
  count := 0; // Инициализируем счетчик нулем

  writeln('Введите целые числа (для окончания введите 0):');

  repeat
    readln(num); // Считываем число с клавиатуры

    if num mod 5 = 0 then // Проверяем, делится ли число на 5 без остатка
      count := count + 1; // Увеличиваем счетчик на 1

  until num = 0;

  writeln('Количество чисел, кратных 5:', count);

end.

Вы можете скопировать этот код в среду программирования Pascal (например, Free Pascal) и выполнить его. Программа будет запрашивать у вас целые числа до тех пор, пока вы не введете 0. Затем она подсчитает количество чисел, кратных 5, и выведет результат.

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