Для подключения процессора к оперативной памяти служит шина.
Var a.b.c,d: integer;
begin
Write('Введите число a'); readln(a);
Write('Введите число b'); readln(b);
Write('Введите среднее геометрическое чисел а и b'); read(c);
d:=sqr(a*b);
Write(c=d);
end.
Решение показано в прилагаемом файле. Формулы:
Для столбца B: =ФАКТР(A3)
Для столбца C: =СТЕПЕНЬ(LN(2);A3)
Для столбца D: =СТЕПЕНЬ($B$1;A3)
Для столбца E: =C3/B3*D3
А можно и не расписывать всё отдельно, а сразу вычислять в столбце B очередное слагаемое.
INPUT "n=", n
s = 0
i = 1
DO WHILE i <= n
s = s + 2 * i
i = i + 1
LOOP
PRINT "s="; s
Var
k,x:integer;
Begin
readln(x);
k:=2*x;
writeln('2*x = ',k);
k:=3-(5*x);
writeln('3-(5*x)= ',k);
k:=2+x-6;
writeln('2+x-6=',k);
<span>End.</span>