Question

ПАСКАЛЬ, ЦИКЛ WHILE (чем проще, тем лучше) Напишите программу, которая в последовательности натуральных чисел определяет количество всех чётных чисел, кратных 5. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество всех чётных чисел, кратных 5.

Answer 1

Объяснение:

var a,k:integer;

begin

k:=0;

readln(a);

while a<>0 do begin

if (a mod 5 = 0) and (a mod 2=0) then

k:=k+1;

readln(a)

end;

writeln(k);

end.

Answer 2

Для написания программы на языке Pascal, которая выполняет указанную задачу, можно использовать цикл while. Вот пример такой программы:

pascalCopy code
program CountEvenMultiplesOfFive;
var
  number, countEvenMultiplesOfFive: integer;
begin
  countEvenMultiplesOfFive := 0;
  
  writeln('Введите последовательность натуральных чисел (для завершения введите 0):');
  readln(number);
  
  while number <> 0 do
  begin
    if (number mod 2 = 0) and (number mod 5 = 0) then
      countEvenMultiplesOfFive := countEvenMultiplesOfFive + 1;
      
    readln(number); // Читаем следующее число
  end;
  
  writeln('Количество чётных чисел, кратных 5: ', countEvenMultiplesOfFive);
end.

Программа запрашивает у пользователя ввод последовательности чисел до тех пор, пока не будет введено число 0. При каждом вводе числа программа проверяет, является ли оно четным и кратным 5, и в случае положительного результата, увеличивает счетчик countEvenMultiplesOfFive. По окончании ввода последовательности программа выводит количество четных чисел, кратных 5.