Помогите написать программы в паскаль, пожалуйста! 1.Дано число х. Найти и вывести на экран все его делители и их сумму. 2. В промежутке от 1 до n вывести все числа, сумма делителей которых равна самому числу.
Помогите написать программы в паскаль, пожалуйста!
1.Дано число х. Найти и вывести на экран все его делители и их сумму. 2. В промежутке от 1 до n вывести все числа, сумма делителей которых равна самому числу.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы