Помогите написать программы в паскаль, пожалуйста! 1.Дано число х. Найти и вывести **...

Question

Помогите написать программы в паскаль, пожалуйста!
1.Дано число х. Найти и вывести на экран все его делители и их сумму. 2. В промежутке от 1 до n вывести все числа, сумма делителей которых равна самому числу.

Answer 1

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.

Comments

БОЛЬШУЩЕЕ СПАСИБО!!!