Var A,S1,S2,i:integer;
Begin
S1:=0;
S2:=0;
Write('Введите результаты первого пятиборца: ');
For i:= 1 to 5 do
Begin
Read(A);
S1:=S1+A;
End;
Write('Введите результаты второго пятиборца: ');
For i:= 1 to 5 do
Begin
Read(A);
S2:=S2+A;
End;
WriteLn('S1 = ',S1);
WriteLn('S2 = ',S2);
End.
Пример:
Введите результаты первого пятиборца: 1 2 3 4 5
Введите результаты второго пятиборца: 5 6 7 8 9
S1 = 15
S2 = 35
Ответ:
<em><u>1</u></em><em><u>5</u></em>
Объяснение:
После того, как цикл выполнится 8 раз, к i прибавится два 8 раз. Я выбираю 15, т.к:
- 0+2=2
- 2+2=4
- 4+2=6
- 6+2=8
- 8+2=10
- 10+2=12
- 12+2=14
- 14+2=16
14<15? Да => цикл выполнится. А 16<15? Нет => цикл остановится. Поэтому 15 - минимальное из возможных. 16 тоже подойдет, но нас просят <u>м</u><u>и</u><u>н</u><u>и</u><u>м</u><u>а</u><u>л</u><u>ь</u><u>н</u><u>о</u><u>е</u><u>.</u>
1017,2 = 1*8^3 +1*8^1+7*8^0 + 2*8 +2*8^(-1)=527,125
111 это в двоичной? если да тогда 111=2^0+2^1+2^2=1+2+4=7
В=11 это запомнить надо
Program zadacha;vara: array[1..6] of integer;i: integer;sr: real;
beginfor i:=1 to 6 do begina[i]:=random(100);write(a[i]:6);end;
sr:=0;for i:=1 to 6 do beginsr:=sr+a[i];end;
writeln();sr:= sr/6;writeln('sr=', sr:6:2);end.