Question

Паскаль.Вводится ряд чисел, неизвестное кол-во, но конец ряда всегда ноль; найти количество чисел кратных пяти и больше пяти (одновременно)

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  ReadSeqIntegerWhile(t->t<>0).Where(t->(t>5) and (t mod 5=0)).Count.Println
end.

Пример
13 -10 8 5 24 35 52 40 20 18 0
3

Answer 2

Поиск количества чисел, кратных пяти и больших пяти в ряде чисел в Паскале

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

program CountMultiplesOfFive;
var
  number, count: integer;
begin
  count := 0;
  repeat
    write('Введите число (для завершения введите 0): ');
    readln(number);
    if (number mod 5 = 0) and (number > 5) then
      count := count + 1;
  until number = 0;
  writeln('Количество чисел, кратных пяти и больших пяти: ', count);
end.

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

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