Question

Составить программу вычисления количества трехзначных чисел, которые при делении на 5 дают в остатке 2. (с помощью Pascal)

Answer 1

var

 i, c: Integer;

begin

 c := 0;

 for i := 100 to 999 do

   if i mod 5 = 2 then begin

     c := c + 1;

     Write (i, ', ');   // здесь выводятся эти числа, если это не нужно - удалите строку

   end;

 WriteLn;

 WriteLn ('Результат = ', c);

 ReadLn;

end.

Answer 2

Program n_1;

var i, n: integer;

begin

 n:=0;

 for i:=100 to 999 do if i mod 5 = 2 then n:=n+1;

 writeln(n);

end.

Answer 3

Для написания программы на Pascal, которая вычислит количество трехзначных чисел, дающих остаток 2 при делении на 5, можно использовать следующий код:

pascalCopy code
program CountNumbers;

var
  number, count: integer;

begin
  count := 0; // Инициализируем счетчик нулем

  // Цикл от 100 до 999, чтобы перебрать все трехзначные числа
  for number := 100 to 999 do
  begin
    // Если число при делении на 5 даёт остаток 2, увеличиваем счетчик на 1
    if number mod 5 = 2 then
      count := count + 1;
  end;

  // Выводим результат на экран
  writeln('Количество трехзначных чисел, дающих остаток 2 при делении на 5: ', count);
end.

Программа использует цикл for, чтобы перебрать все трехзначные числа от 100 до 999 включительно. Затем она проверяет каждое число на остаток при делении на 5 с помощью оператора mod. Если остаток равен 2, увеличивается счетчик count. В конце программы выводится результат на экран.