Question

Найти все целые двузначные числа, удовлетворяющие условию: остаток от деления на 5 равен 3. Цикл for, PascalABC

Answer 1

var i: integer;

begin

   for i:=10 to 99 do

       if i mod 5 = 3 then

           writeln(i);

end.

Answer 2

Конечно, вот как можно найти все целые двузначные числа, удовлетворяющие условию остатка от деления на 5, равного 3, с помощью цикла for в PascalABC:

pascalCopy code
program FindNumbers;

var
  i: integer;

begin
  for i := 10 to 99 do
  begin
    if i mod 5 = 3 then
      writeln(i);
  end;
end.

В этом коде for i := 10 to 99 означает, что цикл будет проходить через все значения i от 10 до 99 включительно. Затем проверяется условие if i mod 5 = 3, которое проверяет, является ли остаток от деления числа i на 5 равным 3. Если условие выполняется, то число выводится на экран с помощью writeln(i).

Просто скопируйте этот код в среду разработки PascalABC, запустите программу и вы увидите список всех целых двузначных чисел, удовлетворяющих заданному условию.