a = int(input('Введите количество друзей:')) #вводим количетсво друзей
name = [] # создаем пустой список
age = 0
for i in range(a): # проходим по колисчетсву друзей
q = input('Введите имя и возраст друга через пробел:').split() # вводим имя и возраст и розбиваем их отдельно
name.append(q[0]) # добавляем имя в список
age = age + int(q[1]) # сумируем весь возраст
age = age / a # находим средний возраст
if age<10: # если меньше 10 то выводим возраст
print(age)
elif age>10: # если больше 10
print(age) #выводим возраст
for b in name: # обходим список с именами
print(b) # выводим имя
Объяснение:
Составим полный код к нашему заданию а:
program ex1;
uses crt;
var
k, a: integer;
begin
k := 1;a := 12;
while a < 100 do
begin
a := 2 * a - 4;
Writeln('Значения a ', a);
k := k + 1;
Writeln('Значения k ', k);
end;
end.
После выполнения программы получаем такие значения:
Значения a 20
Значения k 2
Значения a 36
Значения k 3
Значения a 68
Значения k 4
Значения a 132
Значения k 5
Составим полную программу к заданию б:
program ex2;
uses crt;
var
k, a, s: integer;
begin
s := 0;a := 1;k := 1;
while a < 50 do
begin
s := s + a;
Writeln('Значения s ', s);
k := k + 1;
Writeln('Значения k ', k);
a := k * k;
Writeln('Значения a ', a);
end;
end.
После выполнения программы получаем такие значения:
Значения s 1
Значения k 2
Значения a 4
Значения s 5
Значения k 3
Значения a 9
Значения s 14
Значения k 4
Значения a 16
Значения s 30
Значения k 5
Значения a 25
Значения s 55
Значения k 6
Значения a 36
Значения s 91
Значения k 7
Значения a 49
Значения s 140
Значения k 8
Значения a 64
