Var a: array [1..8] of integer;
i: integer;
begin
for i := 1 to 8 do
readln(a[i]);
for i := 8 downto 1 do
writeln(a[i]);
<span>end.
Вот так)</span>
1. a)
2. a)
3. c)
4. a)
5. с)
6. с)
7. d)
8. 20
9.
1) После example4 не стоит ;
2) Вместо red нужно read в обоих случаях
3) Вместо c=e нужно c:=e
4) После c:=a не стоит ;
10. Не понял как делать, возможно так:
(-23+(-22)+(-21)+(-20)+(-19)+(-18)+(-17)+(-16)+(-15)+(-14)+(-13)+(-12)+(-11)+(-10)+(-9)+(-8)+(-7)+(-6)+(-5)+(-4)+(-3)+(-2)+(-1)+0+1+2+3+4+5+6+7+8+9+10+11+12+13+14+15+16+17+18+19+20+21+22+23+24+25+26+27+28+29+30+31+32+33+34) / 58 = 319 / 58 = 5,5
Последнее скорее всего не правильно) Извиняй)
1) количество цифр
2) сумма цифр
3) произведения
4) среднее арифметическое
5) сумма квадратов
6) сумма кубов
Var
S, X, a, b, R: Real;
C: String;
Begin
WriteLn('Chto budem vichislat');
ReadLn(C);
if C = 'O' then begin
WriteLn('Radius');
ReadLn(R);
S:= Pi*sqr(R);
end;
if C:= 'T' then begin
WriteLn('Vvedite 1 katet);
ReadLn(a);
WriteLn('Vvedite 2 katet);
ReadLn(b);
S:= 1/2 * a * b;
end;
if C:= 'K' then begin
WriteLn('Vvedite 1 katet);
ReadLn(a);
S:= sqr(a);
end;
WriteLn('Ploshad = ');
ReadLn(S);
end.
Количество информации, для получения необходимого ответа, равно
Количество вопросов (максимально) в нашем случае будет равно
32 - количество элементов (64-32)