ребятушки!!! пожалуйста!!! нужна программка в паскале которая будет решать эту штуку...

Ребятушки!!! пожалуйста!!! нужна программка в паскале которая будет решать эту штуку... и Непременно БЛОК СХЕМА-Метод

Задать свой вопрос
1 ответ
Var i,j,s,n:integer;
begin
readln(n);
for i := 1 to n-1 do
begin
s:=0;
for j := 1 to (i div 2) do
if i mod j=0 then s:=s+j;
if s=i then write(i,' ');
end;
end.
Кантюкова Олеся
а блок - схему можно?
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт