Досконалими давні греки називали числа, що дорівнюють сумі всіх дільників, окрім самого числа (6=1+2+3). - id1787301220200128 от krazy4550 28.01.2020 23:26

Question

Информатика: Досконалими давні греки називали числа, що дорівнюють сумі всіх дільників, окрім самого числа (6=1+2+3). Складемо програ- му для перевірки, чи є введене число досконалим. Загальний алгоритм такий: 1) ввести число k; 2) обчислити суму дільників, крім самого числа k; 3) якщо сума дільників дорівнює числу k, то повідомити, що k І досконале. Щоб знайти суму дільників числа (див. коментарі до програми), можна перебрати цілі числа від 1 до половини k, щоразу переві- ряючи, чи є число дільником k. Знайдені

krazy4550 · Accepted Answer

Program HappyNewYear;
Uses GraphABC;
Begin
SetWindowSize(600,400);
line(250,100, 300,50);
lineto(350,100);
lineto(250,100);
floodfill(300,70, clgreen);
line(220,200, 300,100);
lineto(380,200);
lineto(220,200);
floodfill(300,150, clgreen);
line(200,300, 300,200);
lineto(400,300);
lineto(200,300);
floodfill(300,250, clgreen);
rectangle(290, 300,310, 320);
floodfill(300,305, clbrown);
line(0, 300, 100, 350);
lineto(200, 320);
lineto(400, 320);
lineto(600, 370);
lineto(600,400);
lineto(0,400);
lineto(0,300);
end.

MOGZ ответил