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))
Program z1;
var a,b,c,d,e:integer;
begin
Writeln('Введите числа: ');
Write('Первое число (a): '); read(a);
Write('Второе число(b): '); read(b);
if (a mod 2=0) then c:=a;
if (b mod 2=0) then d:=b;
if (a mod 2=0) or (b mod 2=0) then Writeln('Среди введённых чисел присутствует чётное число')
else Writeln('Среди введённых чисел нет чётных чисел');
if (c=a) then Writeln('Чётное число: ',c);
if (d=b) then Writeln('Чётное число: ',d);
end.
В MS Excel по умолчанию числа выравниваются по правому краю, текст по левому
Но при ручном форматировании можно выравнивать как угодно
<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)</span>
begin
var a:=ArrRandom(20,2,5); a.Println;
For var i:=2 to 5 do Println('Кол-во',i,'=',a.Where(t->t=i).Count);
Writeln('Средний бал равен ', a.Average:0:2);
end.
Пример:
5 3 5 2 4 3 5 5 5 3 2 2 4 4 2 3 4 3 5 4
Кол-во 2 = 4
Кол-во 3 = 5
Кол-во 4 = 5
Кол-во 5 = 6
Средний бал равен 3.65