Добавил:
hunter__3211
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:натуральные числа
.pas var i,j,s, n:integer;
begin
writeln('введите колличество цифр');
readln(n);
for i := 1 to n do
begin
s:=0;
for j := 1 to i - 1 do
if i mod j=0 then s:=s+j;
if s=i then write(i,';');
end;
readln;
end.
begin
writeln('введите колличество цифр');
readln(n);
for i := 1 to n do
begin
s:=0;
for j := 1 to i - 1 do
if i mod j=0 then s:=s+j;
if s=i then write(i,';');
end;
readln;
end.
Соседние файлы в предмете Алгоритмические языки и основы программирования