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 z3;
var x1,x2,x3,y1,y2,y3,ac,ab,bc,a1,b1:real;f,f1:text;
begin
assign (f, 'z1.dat');
rewrite(f);
readln(x1,y1);
readln(x2,y2);
readln(x3,y3);
writeln(f,x1,y1);
writeln(f,x2,y2);
writeln(f,x3,y3);
close(f);
ac:=sqr(x1-x3)+sqr(y1-y3);
ab:=sqr(x2-x1)+sqr(y2-y1);
bc:=sqr(x3-x2)+sqr(y3-y2);
b1:=(ab+bc-ac)/(2*sqrt(ab*bc));
a1:=(ac+ab-bc)/(2*sqrt(ac*ab));
if (a1 < 0) or (b1 < 0) then
begin
assign(f1, 'z1.rez');
rewrite(f1);
writeln('na prodolzenue');
writeln(f1,'na prodolzenue');close(f1)
end
else
begin
assign(f1, 'z1.rez');
rewrite(f1);
writeln ('na otrezke');
writeln(f1,'na otrezke');
close(f1)
end
end.
549 - 100100101
101000 - 50
11001 - 25
10100 - 20
11110 - 30
1010 - 10
(1/4) кбайт = 250 байт Долно быть правильно)