program m1; var x,del:integer; begin write('Введите x: '); readln(x); write('Делители: '); for del:=1 to x do if (x mod del)=0 then write(del,' '); writeln; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
