1.2.2. Алгоритмическая структура «ветвление»
1.2.3. Алгоритмическая структура «выбор»
1.2.4. Алгоритмическая структура «цикл»
Лабораторная работа № 7. Шаг 2. Задача 1
Лабораторная работа № 7. Шаг 2. Задача 2
Лабораторная работа № 7. Шаг 2. Задача 3
Лабораторная работа № 7. Шаг 2. Задача 4
Лабораторная работа № 7. Шаг 3. Тест
Для двух следующих задач (задачи 2 и 3) дан набор команд в произвольном порядке (других команд в программе быть не должно). Соберите программы путем выбора правильных команд.
for a:=1 to n do end; writeln (a); b:=b+c; begin if a mod b = 0 then if b=c then c:=b mod 100; var a, b, c : integer; b:=a*a; readln (a); if a=b then for a:=1 to 99 do writeln (b); c:=b div 100; var a, b: integer; for b:=1 to a / 2 do c:=0; end. a:=b*b; b:=c div 100; for a:=10 to 99 do var a, b, c, n: integer; for b:=1 to a mod 2 do b:= c mod 100; if a=c then readln (n); b:=0; c:=c+b; for b:=1 to a div 2 do begin
Задача 3. Требуется вывести все совершенные числа а из интервала от 1 до N.
Совершенными называется такие числа, сумма делителей которых (исключая само число) равна самому числу.
Примеры:
4 ≠ 1 + 2 – не совершенное число;
6 = 1 + 2 + 3 – совершенное число;
8 ≠ 1 + 2 + 4 – не совершенное число.
1. Соберите программу путем выбора правильных команд из представленного выше набора.
Текст программы (текст должен быть виден):
2. Задайте значение N. Выполните программу при заданном значении N. Если обнаружите ошибки, исправьте их.
3. Скриншот выполнения программы (текст программы должен быть виден):
Скриншот |
Найденные совершенные числа:
____________________________________________________________________
____________________________________________________________________
Подумайте, что нужно изменить в программе для поиска совершенных чисел в большом интервале (например, при N = 100 000 или больше).
____________________________________________________________________
____________________________________________________________________
____________________________________________________________________