Question

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

Answer 1

Var x,k:integer; 
begin 
k:=0; 
writeln('Введите числа'); 
repeat 
read(x); 
if (x mod 4=0) and (x>=100) and (x<=999) then k:=k+1; 
until x=0; 
writeln('Количество трехзначных чисел кратных 4 = ', k); 
end.

Answer 2

Конечно, вот программа на Pascal, которая выполняет заданную задачу:

program CountMultiplesOfFour;
var
  num, count, i: integer;
begin
  count := 0;
  repeat
    readln(num);
    if (num <> 0) and (num >= 100) and (num <= 30000) then
    begin
      for i := 100 to 999 do
      begin
        if (i mod 4 = 0) then
        begin
          if (i >= num) then
            break;
          Inc(count);
        end;
      end;
    end;
  until num = 0;

writeln('Количество трёхзначных чисел, кратных 4: ', count);
end.

Эта программа считывает последовательность чисел, остановка происходит при вводе числа 0. Для каждого числа в диапазоне от 100 до 999 программа проверяет, делится ли оно на 4 и добавляет к счётчику, если оно соответствует условиям. После окончания ввода чисел она выводит количество трёхзначных чисел, кратных 4.