Помогите написать программы в паскаль, пожалуйста!
1.Дано число х. Найти и вывести на экран все его делители и их сумму. 2. В промежутке от 1 до n вывести все числа, сумма делителей которых равна самому числу.
1.Дано число х. Найти и вывести на экран все его делители и их сумму. 2. В промежутке от 1 до n вывести все числа, сумма делителей которых равна самому числу.
Answers & Comments
Verified answer
Program A1;var x, i, s: integer;
begin
writeln('Введите число x');
readln(x);
s:=0;
for i:= 1 to x do
if x mod i = 0 then
begin
write(i,' ');
s:=s+i;
end;
writeln;
writeln('s=',s);
end.