Язык паскаль решите через вайл выведите все натуральные - вопрос №9918571 от Шатунов1 12.01.2020 15:07

Question

Информатика: Язык паскаль решите через вайл выведите все натуральные делители числа x в порядке возрастания (включая 1 и само число). входные данные вводится натуральное число x выходные данные выведите все делители числа x

Шатунов1 · Answer

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....