Составить программу выводящую на экран все делители числа x,число x,введите с клавиатуры
Составить программу выводящую на экран все делители числа x,число x,введите с клавиатуры
Гость
Ответ(ы) на вопрос:
Гостьprogram m1;
uses crt;
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.
Не нашли ответ?
Похожие вопросы