Найти все числа, которые делятся на N среди а) всех двузначных чисел; б) всех трёхзначных чисел
Найти все числа, которые делятся на N среди
а) всех двузначных чисел;
б) всех трёхзначных чисел
Гость
Ответ(ы) на вопрос:
Гостьа) 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.
Не нашли ответ?
Похожие вопросы