//PascalABC.NET 3.1 сборка 1200
begin
var a := ArrRandomInteger(50, -50, 50);
writeln('[x < 0] = ', a.Where(x -> x < 0).Count);
writeln('[x > 0] = ', a.Where(x -> x > 0).Count);
writeln('[x = 0] = ', a.Where(x -> x = 0).Count);
end.
1)
var a,b,c,d:real;
begin
writeln('Введите 3 числа');
readln(a,b,c);
d := a + b + c;
writeln('сумма чисел равна',d);
end.
ну или
var a,b,c,d:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третее число');
readln(c);
d := a + b + c;
writeln('сумма чисел равна',d);
end.
2)
var a,b,c,d:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третее число');
readln(c);
d := a * b * c;
writeln('произведение чисел равна',d);
end.
3)
var a,b,c:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
c := a : b;
writeln('деление двух чисел равна',c);
end.
В третем могу ошибится
1.
-57.66 (10) = <span>-111001.10101000111 (2);
</span>- = 1;
111001.10101000111 = 1.1100110101000111 * 10^5;
5 = 101;
5 бит = (5-1) = 1111 разрядов;
101+1111 = 10100 смещённый порядок.
1100110101000111 мантисса
1 10100 1100110101000111 0000000000
2.
0 10000001000 10010111100101 0000000000
11 бит = (11-1) = 1111111111 разрядов.
10000001000 - 1111111111 = 1001 (2) порядок
1001 (2) = 9 (10)
1.10010111100101 * 10^9 = 1100101111.00101 (2)
1100101111.00101 (2) = <span>815.15 (10)
</span>
815.15 (10)
4, так как углы комнаты находятся напротив друг друга.