Ariulis
6 год назад
8 класс, Информатика, паскаль, для заданного числа (18) вывести его делители помогите, пожалуйста
ОТВЕТЫ
Para
Jul 1, 2019
Var i, x: integer;
begin
x := 18;
for i:=1 to x do
if x mod i = 0 then
writeln(i);
end.
begin
x := 18;
for i:=1 to x do
if x mod i = 0 then
writeln(i);
end.
157
Смежные вопросы:
