Найти все числа, которые делятся на N среди
а) всех двузначных чисел;
б) всех трёхзначных чисел
а) всех двузначных чисел;
б) всех трёхзначных чисел
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.