8 класс, Информатика, паскаль, для заданного числа (18) вывести его делители помогите, пожалуйста

Ответ учителя по предмету Информатика

var i, x: integer;

begin

   x := 18;

   for i:=1 to x do

      if x mod i = 0 then

         writeln(i);

end.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

Похожие вопросы от пользователей