Составьте программу для вычисления катетов прямоугольного треугольника площадью S, у которого длина одного катета в
два раза меньше длины другого
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Абросимов
Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 var a, b, c, s:real; begin repeat write ('Введите длину гипотенузы c=') ; readln (c) ; write ('Введите длину катета a=') ; readln (a) ; write ('Введите длину площади s=') ; readln (s) ; if (c>b) and (c>0) and (b>0) then begin a:=sqrt (sqr (c) - sqr (b)) ; s: = (1/2) * b*c; write end.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 var a, b, c, s:real; begin repeat write ('Введите длину гипотенузы c=') ; readln (c) ; write ('Введите длину катета a=') ; readln (a) ; write ('Введите длину площади s=') ; readln (s) ; if (c>b) and (c>0) and (b>0) then begin a:=sqrt (sqr (c) - sqr (b)) ; s: = (1/2) * b*c; write end.
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
