Question

1)Напишите программу, которая в последовательности целых чисел определяет количество четных чисел, кратных десяти. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом ноль (ноль – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30000. 2) Напишите эффективную программу, которая по двум данным натуральным числам х и у, не превосходящим 10000, выводит на экран и подсчитывает количество натуральных чисел, кратных восьми, на отрезке [х,у] (включая концы отрезка). Напишите пожалуйста на языке Паскаль.

Answer 1

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

№1

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

№2

begin
  var (x,y):=ReadInteger2; if x>y then Swap(x,y);
  var d:=x mod 8;
  x:= d=0 ? x : d>0 ? x+8-d : x-d ;
  Range(x,y,8).Println.Count.Println
end.

Пример
-50 50
-48 -40 -32 -24 -16 -8 0 8 16 24 32 40 48
13

Answer 2

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

1) Определение количества четных чисел, кратных десяти:

program CountEvenMultiplesOfTen;
var
  inputNumber, count: integer;
begin
  count := 0;
  repeat
    readln(inputNumber);
    if (inputNumber mod 2 = 0) and (inputNumber mod 10 = 0) then
      count := count + 1;
  until inputNumber = 0;
  writeln(count);
end.

2) Подсчет количества натуральных чисел, кратных восьми, на отрезке [х, у]:

program CountMultiplesOfEight;
var
  x, y, count, i: integer;
begin
  readln(x, y);
  count := 0;
  for i := x to y do
  begin
    if (i mod 8 = 0) then
    begin
      count := count + 1;
      writeln(i);
    end;
  end;
  writeln('Count: ', count);
end.

Программа принимает на вход два натуральных числа x и y, затем с помощью цикла for перебирает все числа на отрезке [х, у] и проверяет их на кратность восьми. Если число является кратным восьми, оно выводится на экран и увеличивается счетчик. По окончанию работы цикла выводится значение счетчика.