Помоги написать задачу на Паскале. Решить надо с помощью цикла FOR. Вывести на экран все делители данного числа введенного с клавиатуры.
Помоги написать задачу на Паскале. Решить надо с помощью цикла FOR. Вывести на экран все делители данного числа введенного с клавиатуры.
Гость
Ответ(ы) на вопрос:
Гостьvar n,i:longint; begin write ('N = ');readln(n); for i:=2 to n div 2 do if n mod i = 0 then writeln (i); readln; end.
ГостьProgram OkuraRain;
var x: integer;
begin
write('Введите число Х ');
readln(x);
writeln('*** Alphaues is thinking... ***');
writeln('*** OK! ***');
writeln();
writeln('Делители числа Х: ');
for i:=2 to (x div 2) do
if x mod i = 0 then writeln (i);
end.
Не нашли ответ?
Похожие вопросы