Простая рекурсия здесь. При вызове F(2) будут выполняться вызовы F(4) и F(5); вызов F(4) приведет к вызовам F(6) и F(7), а вызов F(5) - к вызовам F(7) и F(8). На этом прямой ход рекурсии закончится и начнется обратный. На экран будут выводиться числа 2, 4, 6, 7, 5, 7, 8. Их сумма = 39
andreich97
30.05.2020
41)Создать новую таблицу 42) Д) 43)Правка - Удалить запись. 50) Параметры. 53)Выводится диалоговое окно с приглашением ввести параметр для условия на отбор записей. 56)Изменяются значения в полях определенных записей. 57)Создается таблица с данными, соответствующими определенным условиям. 62)Автоматической вставки последовательных или случайных чисел в качестве номера новой записи. 65)Во вкладке Режим таблиц – выбрать Вставить 66)Разные имена, но одинаковый тип данных. 69)Для отбора записей, данные в которых соответствуют определенным условиям. 70)Е) 71)Для создания контрольного переключателя.
Gstoremsk62
30.05.2020
Program Ves; Var a1,a2,a3,a4,t1,t2,t3,p,d,vp,b: Integer; begin writeln ('программа вычисляет норму для данного ученика'); writeln ('введи массу учебника 1');readln (a1); writeln ('введи массу учебника 2');readln (a2); writeln ('введи массу учебника 3');readln (a3); writeln ('введи массу тетради 1');readln (t1); writeln ('введи массу тетради 2');readln (t2); writeln ('введи массу тетради 3');readln (t3); writeln ('введи массу пенала');readln (p); writeln ('введи массу дневника');readln (d); writeln ('введи массу портфеля');readln(vp); b:=a1+a2+a3+a4+t1+t2+t3+p+d+vp;writeln ('общая масса портфеля= ' b); if (b<=5) then writeln ('норма') else writeln ('ненорма'); readln; end.