Var i: byte; begin for i: =10 to 25 do begin write(i,' '); writeln(i,'.4'); end; end.
Спасибо
Ответ дал: Гость
program aaa; var d, n : integer; begin write ('введите число n-'); readln (n); writeln('делители числа: '); for d : =1 to n do if n mod d = 0 then writeln (d)end.
Популярные вопросы