Напишите программу ** языке програмирования паскаль в которой нужно найти гипотенузу...

0 голосов
57 просмотров

Напишите программу на языке програмирования паскаль в которой нужно найти гипотенузу прямоугольного треугольника если известны катеты.


Информатика (20 баллов) | 57 просмотров
Дан 1 ответ
0 голосов

program abc;
uses crt;
var a,b,c:real;
begin
writeln('Vvedite 1 katet');
readln(a);
writeln('Vvedite 2 katet');
readln(b);
c:=sqrt((a*a)+(b*b));
writeln('Gipotenuza=',c);
end.

(310 баллов)