Решить!
все 5-буквенные слова, составленные из букв а, к, р, у, записаны в алфавитном порядке. вот начало списка:
1.
2.
3.
4.
5.
выполните следующие :
1. определите, сколько всего слов в списке
2. укажите слова, которые стоят на 150-м 250-м 350-м и 450-м местах
3. укажите порядковые номера слов акура карау рукаа
4. укажите номера первого и последнего слов, которые начинаются с буквы р.
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.
Тестовое решение:
-0.00136006072493969
2. А вот так учат писать это же школьные учителя:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
m:array[1..100] of real;
i,k:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 100 do begin
m[i]:=sin(i)*cos(i);
if m[i]<>0 then begin
s:=s+m[i];
k:=k+1
end
end;
Writeln(s/k)
end.
Тестовое решение:
-0.00136006072493969