Журналист
Сергиевич 26 ноября 2019 в 07:58

Написать линейную программу на языке Паскаль для нахождения гипотенузы треугольника и реализовать её в среде Pascal ABC.NET
с=√а2 +b2(а и b в квадрате )

Var a,b,c:real;
begin
write(a = ); readln(a);
write(b = ); readln(b);
c:=sqrt(a*a+b*b);
writeln(c = ,c);
end.

Пример:
a = 3
b = 4
c = 5
Если есть проблемы с отображением, смотрите снимок ответа.
program , hypotenuse; \ amp;#10;var , a,b,c , : , real; \ amp;#10;begin \ amp;#10;write(a= ,); \ amp;#10;readln(a); \ amp;#10;write(b = ,); \ amp;#10;readln(b);
c := ,sqrt(a*a + b*b); \ amp;#10;writeln(c=,,c); \ amp;#10;end.
Компьютеры и вычисления
Для комментирования необходимо зарегистрироваться на сайте