<span>а:= а - в
20 символов ( . ) ( . )
</span>
Var num, deg: integer;
res: real;
i: byte;
begin
write ('Число: ');
readln (num);
write ('Степень: ');
readln (deg);
res := 1;
i := 0;
while i < abs(deg) do begin
res *=num;
inc(i)
end;
if deg < 0 then
res := 1 / res;
writeln (res:10:5);
end.
Ответ: MS Word
Total Commander - файловый менеджер
WinRar - архиватор
Notepad - блокнот
MS Word - многофункциональный текстовый редактор
Var a1,a2:integer;
begin
readln(a1);
readln(a2);
a1:=a1*a1*a1;
a2:=a2*a2*a2;
if a1>a2 then writeln(a1) else
writeln(a2);
end.
<span>B1.
Числа:
35, 71</span>
В2.
<span>B3.
Заменим
числа в 5 первых ячейках на среднее и получим в сумме
5+24=120</span>
Х – число в 6 ячейке
(120+Х)/6 = 4
Х = -96
<span>В4.
в ячейке F4
будет формула
=$C6-I$3</span>
<span>С1.
8, 17, 26</span>