Question

Паскаль 1) Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 4 или 7. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чисел, кратных 4 или 7. 2) Напишите программу, которая в последовательности натуральных чисел вычисляет сумму всех двузначных чисел, кратных 6. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех двузначных чисел, кратных 6.

Answer 1

===== PascalABC.NET =====

= 1 =

begin

 ReadSeqIntegerWhile(p -> p <> 0)

     .Count(p -> (p mod 4 = 0) or (p mod 7 = 0))

     .Print

end.

= 2 =

begin

 ReadSeqIntegerWhile(p -> p <> 0)

     .Where(p -> (p mod 6 = 0) and p.InRange(10, 99))

 .Sum

 .Print

end.

Answer 2

Программа на языке Паскаль для решения первой задачи (определение количества чисел, кратных 4 или 7):

pascalCopy code
program CountMultiples;
var
  num, count: integer;
begin
  count := 0;

  repeat
    read(num);

    if (num = 0) then
      break;

    if (num mod 4 = 0) or (num mod 7 = 0) then
      count := count + 1;

  until false;

  writeln(count);
end.

Программа на языке Паскаль для решения второй задачи (вычисление суммы всех двузначных чисел, кратных 6):

pascalCopy code
program SumMultiples;
var
  num, sum: integer;
begin
  sum := 0;

  repeat
    read(num);

    if (num = 0) then
      break;

    if (num >= 10) and (num <= 99) and (num mod 6 = 0) then
      sum := sum + num;

  until false;

  writeln(sum);
end.

Обратите внимание, что обе программы используют оператор repeat...until false для ввода чисел до тех пор, пока не будет введено число 0 (признак окончания ввода). Затем они проверяют условия для определения кратности и соответственно увеличивают счетчик или сумму.