Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
байт
1.
program xxx;
var i, n : integer
begin
writeln ('введите число n=');
readln (n);
writeln ('делители числа: ');
for i: = 1 to n do
if n mod i = 0 then writeln (i);
readln
end.
(12-3): (4+5)=1
1х2х3-4+5-6=1
(12: 3+4+5): (6+7)=1
(1+2-3+4+5+6-7): 8=1
Популярные вопросы