1.4)
2.5)
3.5
4.3
5.г
6.5
7.1
8.2
9.1
10.2
11.1
12.1
13.2
14.10байт
дальше я не знаю
Var
a,b,s,p:real;
begin
Write('Введите два числа через пробел: ');
Read(a,b);
if a<>b then begin
s:=a+b; p:=a*b;
Writeln('Сумма равна ',s,', произведение равно ',p);
if p>s then Writeln('Произведение больше суммы на ',p-s:0:5)
end
else Writeln('Числа равны')
end.
<u>Пример</u>
Введите два числа через пробел: 24 15.2
Сумма равна 39.2, произведение равно 364.8
Произведение больше суммы на 325.60000
10 битов, 20 битов, 2 байта, 1 кбайт, 1010 байтов.