Question

Написать программу в Pascal по 2 способам for и while.
Задание:Вывести на экран числа оканчивающаяся на 3 в промежутке от n до 150

Answer 1

while:

var
  n: integer;

begin
  write('Введите начало диапазона (n): ');
  readln(n);
  while n < 150 do
  begin
    if n mod 10 = 3
      then  write(n, ' ');
    n := n + 1; end;
end.


for:

var
  n, i: integer;

begin
  write('Введите начало диапазона (n): ');
  readln(n);
  for i := n to 150 do
    if n mod 10 = 3
      then  write(i, ' ');
end.