Составьте программу, находящую сумму делителей - вопрос №8289894 от anfusatarasova2 26.01.2021 00:28

Question

Информатика: Составьте программу, находящую сумму делителей числа х. число х введите с клавиатуры. (pascal abc (не net)) (20 )

anfusatarasova2 · Answer

Program A;var X,sum,i: integer;beginsum := 0 ;Readln(X);for i:= 1 to X doif (x mod i = 0) then   sum := sum + i;Writeln(sum);end....