Даны два катета прямоугольного треугольника найти его гипотенузу Решите через поскаль
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Исакова Наталия
Program gipotenuza;
Uses CRT;
Var a, b, c : real;
Begin
CLRSCR;
Writeln( ‘ введите длину первого катета a= ’ );
Readln(a);
Writeln( ‘ введите длину второго катета b= ’ );
Readln(b);
с:=sqrt(sqr(a)+sqr(b));
writeln(‘ длина гипотенузы c= ’ , c:5:2);
repeat until keypressed;
END.
Uses CRT;
Var a, b, c : real;
Begin
CLRSCR;
Writeln( ‘ введите длину первого катета a= ’ );
Readln(a);
Writeln( ‘ введите длину второго катета b= ’ );
Readln(b);
с:=sqrt(sqr(a)+sqr(b));
writeln(‘ длина гипотенузы c= ’ , c:5:2);
repeat until keypressed;
END.
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00