Язык паскаль решите через вайл выведите все натуральные - вопрос №9918571 от Лаймик0 24.11.2021 10:38

Question

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

Лаймик0 · 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....