Question

вывести трехзначные числа кратные 7 используя while pascal

Answer 1

var  n: integer;
begin  n := 100;  while (n <= 999) do  begin    if n mod 7 = 0 then      write(n, ' ');    n += 1;  end;end.

Answer 2

var
n: integer;

begin
n := 100;
while (n <= 999) do
begin
if n mod 7 = 0 then
write(n, ' ');
n += 1;
end;
end.