Var a,b,c: real;
Begin
write('Введите 3 числа: ');
readln (a,b,c);
if c = sqrt(a*a + b*b) then writeln('Число ',c,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c)
else if a = sqrt(c*c + b*b) then writeln('Число ',a,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c)
else if b = sqrt(a*a + c*c) then writeln('Число ',b,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c)
else writeln('Эти числа не являются сторонами прямоугольного треугольника')
End.
Что значит не отображаются значки? Word и другие компоненты MS Office могут быть не установлены вовсе, может стоять запрет на запуск от администратора, значки (ярлыки) могут быть просто скрыты.
<span>100110 = 25*1 + 24*0 + 23*0 + 22*1 + 21*1 + 20*0 = 32 + 0 + 0 + 4 + 2 + 0 = 38 удачи)</span>
$val *= 100;
display($val . "%");
Количество символов = 8*40*48
Объем рассказа = 8*40*48*8 бит = 8*40*48*8/8 байт = 8*40*48 байт = 8*40*48/1024 Кбайт = 15 Кбайт