var i,a,k: integer;
begin
for a := 100 to 999 do
k:=0;
for i:=3 to a div 3 do
if a mod i = 0 then
k := k + 1;
if k = 0 then write(a, ' ');
end;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Напишите программный код. Вывести на экран все 3-х значные числа, делящиеся на 3. (Вывод чисел в строку) ( паскаль)
var i,a,k: integer;
begin
for a := 100 to 999 do
begin
k:=0;
for i:=3 to a div 3 do
if a mod i = 0 then
k := k + 1;
if k = 0 then write(a, ' ');
end;
end.