Question

Найти все числа, которые делятся на N среди а) всех двузначных чисел; б) всех трёхзначных чисел

Answer 1

а) Program a;
uses crt;
var
i,n:integer;
begin
Writeln ('Введите n');
Read (n);
For i:=10 to 99 do
begin
if i mod n=0 then
Write (i,' ');
end;
end.

б) Program b;
uses crt;
var
i,n:integer;
begin
Writeln ('Введите n');
Read (n);
For i:=100 to 999 do
begin
if i mod n=0 then
Write (i,' ');
end;
end.