Процедуры всегда перед прогр. нужно делать
1.А)
Во-втором через Open Office и Paint нельзя создать 3D модели
2.А) и C)
Def GetRate(rates):
RatesList = []
for rate in rates.split(' '):
RatesList.append(int(rate))
print(str(RatesList[0]) + ' ' + str(RatesList[-1]))
RatesList.remove(RatesList[0])
RatesList.remove(RatesList[-1])
return sum(RatesList)/ len(RatesList);
rates = input()
print('%.2f' % GetRate(rates))
Var a:real;BeginWrite('Сторона равностороннего треугольника: ');ReadLn(a);WriteLn('P = ',a*3);WriteLn('S = ',a*a);End.
Var a,b,c:real;
begin
writeln('Введите a,b,c');
readln(a,b,c);
if (a<=3) and (a>=-1) then writeln(a, ' принадлежит промежутку [-1,3]');
if (b<=3) and (b>=-1) then writeln(b, ' принадлежит промежутку [-1,3]');
if (c<=3) and (c>=-1) then writeln(c, ' принадлежит промежутку [-1,3]');
end.