profile
Опубликовано 6 лет назад по предмету Информатика от maska031

Даю 70балов
язык паскаль решите через вайл плииииз

Выведите все натуральные делители числа x в порядке возрастания (включая 1 и само число).
Входные данные
Вводится натуральное число x
Выходные данные
Выведите все делители числа x

  1. Ответ
    Ответ дан VashYchiteLGoda

    Program x;

    var

    i , x : integer;

    Begin

    Readln(x);

    I:=1;

    While I <= x do

    Begin

    If x mod I = 0 then

    Writeln(i);

    Inc(I);

    End;

    End.

Самые новые вопросы