Регистрация
amir45
16.12.2021 21:10
Информатика
Есть ответ 👍

Натуральное число называется совершенным, если оно равно сумме всех своих делителей, включая единицу и исключая само себя. вводится натуральное число. проверьте его на совершенство и выдайте ответ «да» или «нет». подсчитайте количество операций в вашем ал- горитме и выпишите его в виде функции от параметра n, где n – вводи- мое число. плюс два за правильный эффективный алгоритм про- верки числа

205
272
Посмотреть ответы 2

Ответы на вопрос:

rudembatalov
rudembatalov
4,7(40 оценок)
Var n,sum,del: integer; n1: real; begin sum: =0; repeat           writeln ('введите число');           readln(n1); until (n1> 0)and(n1=round(n1)); n: =round(n1); for del: =1 to n-1 do//ищем делители включая единицу и исключая само число begin         if (n mod del=0) then //если делится         sum: =sum+del; //учитываем в сумме end; if sum=n then writeln('да') else writeln('нет') end. вроде так, если я не сильно упорота
egulaim
egulaim
4,8(29 оценок)

Основний алгоритм для визначення найменшого і найбільшого числа з набору дійсних чисел включає наступні кроки:

Ініціалізувати змінну мінімум значенням першого числа у наборі.

Ініціалізувати змінну максимум значенням першого числа у наборі.

Просканувати залишок чисел у наборі.

Для кожного числа:

Порівняти його зі значенням мінімум. Якщо воно менше, оновити значення мінімум на поточне число.

Порівняти його зі значенням максимум. Якщо воно більше, оновити значення максимум на поточне число.

Вивести значення мінімум і максимум.

Ось приклад реалізації даного алгоритму у мові програмування Lazarus (з використанням Pascal):program FindMinMax;

var

numbers: array[1..6] of Real; // Набір чисел

minimum, maximum: Real; // Змінні для збереження найменшого і найбільшого числа

i: Integer;

begin

// Ініціалізація набору чисел (приклад)

numbers[1] := 3.14;

numbers[2] := 2.718;

numbers[3] := 1.618;

numbers[4] := 0.577;

numbers[5] := 2.236;

numbers[6] := 1.414;

// Ініціалізація мінімуму і максимуму першим числом у наборі

minimum := numbers[1];

maximum := numbers[1];

// Пошук найменшого і найбільшого чисел у наборі

for i := 2 to 6 do

begin

if numbers[i] < minimum then

minimum := numbers[i];

if numbers[i] > maximum then

maximum := numbers[i];

end;

// Виведення результатів

WriteLn('Найменше число: ', minimum);

WriteLn('Найбільше число: ', maximum);

end.

Запустивши цей код у середовищі Lazarus, ви отримаєте виведені на екран найменше і найбільше число з набору. Ви можете змінити значення `numbers

Объяснение:

Популярно: Информатика