2.
var z,y:integer;
begin
write('Введите z');
readln(z);
if (z>0) and (z<0) then writeln(y=(1/z)+(5/(z-6)))
else
writeln('На ноль делить нельзя!');
readln;
end.
Номер 1 сделан в фотке!:)
Дай лучший ответ мне, плиз оч нужно!)
Десятичное число 24 или 11
1) -
2)1
3) 8*10=80 придет работников
8*4=32 уйдут по разным причинам
всего 50+80-32=98
ответ: 2
4) 2 -вычитание
5) 3 - т.к из B можно попасть в E , а из A можно попасть в C
1)48*36*48=82944 символа всего в реферате.2)формула V=K*i, где K-количество символов, а i-чему равен один символ. V=82944*8=663552 бит = 82944 байт = 81 Кб.Ответ: информационный объем реферата равен 81 Кб.
===== PascalABC.NET =====
begin
var n := 5;
var m := MatrRandom(n, n, -15, 25);
m.Print(4);
Writeln;
for var i := 0 to n -1 do
Write(m[i, i]:4)
end.