Uses crt;
const N=6;
var a, b, c, d, e,sum,f,j,i:real;
begin
repeat
writeln('Введите 6 чисел');
readln(a,b,c,d,e,f);
sum:=(a+b+c+d+e+f);
j:=sum/N;
writeln('Среднее арифметическое чисел = ',j);
writeln('Хотите повторить программу еще раз? Если да - нажмите 1 ,если нет - нажмите 2');
readln(i);
until i=2;
end.
Нельзя создать массив A и переменную a одновременно, поэтому назвал массив n.
var
n: array [1..4] of integer;
a, b: integer;
begin
a:=3;
b:=1;
n[1]:=a;
n[2]:=a+b;
n[3]:=b;
n[4]:=b-a;
writeln(n[b-n[a+b]]+n[2*b]);
<span>end.
<u>Результат: 5</u></span>
1. Шиной (магистралью)
Плоттер-устройство печати
Модем-устройство меняющий аналоговую информацию в цифровую и обратно
Контроллер -регулятор, управляющий элемент
2^0,03421571533791295638904171153183 = 2^10 = 2^13
2^9 = 2^18,965784284662087043610958288468 = 2^21,965784284662087043610958288468
считал через логарифмы
Var n,k: integer;
<span> s: real;
</span><span>begin
</span><span> s:=0; n:=0;
</span><span> repeat
</span><span> inc(n);
</span><span> k:=n*n;
</span><span> s:=s+k/(k+2);
</span><span> until s>9;
</span><span> writeln('n = ',n,' s =',s:5:2);
</span><span>end.
</span><span>n = 11 s = 9.45
</span>