Var
a,b,c:real;
begin
Write('Введите через пробел длины трех сторон: ');
Readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then
Writeln('Можно составить треугольник')
else
Writeln('Нельзя составить треугольник')
end.
Тестовое решение:
Введите через пробел длины трех сторон: 2 6 9
Нельзя составить треугольник
Введите через пробел длины трех сторон: 3 4 5
Можно составить треугольник
<span>наука об общих закономерностях процессов у</span>правления<span> и передачи и</span>нформации<span> в различных с</span>истемах
1-4
2-вообще, программа составлена неверно(being), но если не считать этого, то i=s=5
5-3
6-(A*B)/(C*D)/E
7-не указан символ ";" после команды 2c:=b2*b2
8-10
9-4
10-(ac+bc^2-bcd-a+b^2)/(bc)+0.11
32 = 2 в степени 5
5 бит на символ
Текст 1,5 Кб = 1536 байт = 12288 бит
<span>12288/5 = 2457 символов</span>