4.
Условие: время >=19.00ч.
Действие: «Зайти домой» или «Играть
дальше»
5.
Циклический:
6.
Входные данные: а, b, c
Результат: p = 10
Семантическая сеть во вложении
Выпишем числа Фибоначчи, не превышающие 46, в обратном порядке:
34, 21, 13, 8, 5, 3, 2, 1.
Для перевода в Фибоначчиеву систему счисления представим каждое переводимое число в виде суммы чисел Фибоначчи, а затем заменим использованные в записи числа единицами, а неиспользованные - нулями.
41=34+5+2 -> 10001010
46=34+8+3+1 -> 10010101
Program p1;
var sr,sr1:real;
p,i:integer;
begin
Write('Введите число учащихся: ');
Readln(p);
sr:=0;
sr1:=0;
for i:=1 to p do
begin
Write('Введите средний балл ученика: ');
readln(sr1);
sr:=sr+sr1;
end;
Writeln('Средний балл группы равен: ',sr/p);
<span>end.</span>