См. приложения.
лист Excel живой, внизу для перехода между заданиями ярлыки
Таблица истинности для двух функций, потому, что фото не четкое.
Немного изменил
Var a:array[1..10]of real;
i:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(10,100)/10;
write(a[i]:6);
end;
writeln();
for i:=1 to 10 do
write(sqr(a[i]):6);
<span>end.</span>
1) х=16 (10000₂)
у=12 (1100₂)
2) 10000₂ - 1100₂ = 100₂
Это объект любой окружающего мира
Ответ 17
b
ответ 18
a
ответ 19
b, c, d
ответ 20
нет