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

1

Ответы и объяснения

2013-12-12T23:52:23+04:00
а) 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.