1. СладкоеЖка, любящая пироги - Аня, поэтому она выбрала пирог с вареньем.
2. Кроме Ани, пироги любит Ваня, поэтому ему достался пирог с капустой.
3. Есть еще одна сладкоеЖка - Лена, а из сладких блюд есть еще блины с вареньем. Их она и выбрала.
4. И последняя, Света, выбрала то, что осталось - оладьи со сметаной.
<u>1. Современный вариант</u>
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
var a:=ArrRandom(10,1,50); a.Println;
Writeln('Ср.арифм.нечетных=',a.Where(x->x.IsOdd).Average)
end.
<u><em>Тестовое решение:</em></u>
43 47 37 17 1 39 47 46 3 34
Ср.арифм.нечетных=29.25
<u>2. Школьный вариант</u>
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
const
n=10;
var
a:array[1..n] of integer;
i,s,k:integer;
begin
Randomize;
k:=0; s:=0;
for i:=1 to n do begin
a[i]:=Random(50)+1;
Write(a[i],' ');
if Odd(a[i]) then begin
s:=s+a[i]; Inc(k)
end
end;
Writeln;
Writeln('Ср.арифм.нечетных=',s/k)
end.
<u><em>Тестовое решение:</em></u>
22 46 37 36 23 30 18 19 15 12
Ср.арифм.нечетных=23.5
1.
var y:real;
begin
write('y = ');
readln(y);
writeln(sqrt(sqrt(y)-5*y+8):5:3);
end.
Пример:
y = 0.09
2.802
2.
var x,y,t1,t2,t3:real;
begin
write('x = ');
readln(x);
t1:=x*x; // x^2
t2:=x+2.5; // x+2.5
t3:=t1*t2; // x^3+2.5*x^2
y:=t3-x; // x^3+2.5*x^2-x
y:=y+1; // x^3+2.5*x^2-x+1
writeln('1) y = ',y:5:2);
writeln('2) y = ',x*x*x+2.5*x*x-x+1:5:2);
end.
Пример:
x = 3
1) y = 47.50
2) y = 47.50
3.
var a,b,c:real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
c:=sqrt(a*a+b*b);
writeln('c = ',c:6:4);
end.
Пример:
a = 3
b = 4
c = 5.0000
Последовательное вычисление по формуле:
ЕСЛИ(А1<20;4;5) ⇒ 5
ЕСЛИ(А1<15;3;5) ⇒ 5
ЕСЛИ(А1<10;2;5) ⇒ 5
Ответ: 5
Что? напиши на русском обязательно помогу)