Задание:
Составить программу которая вычесляет площадь прямоугольника у которого ширина=а диагональ равноd
Решение:
Program zadanie_1; var a,d,b,S: integer; Beginwriteln ('Введите значение ширины и диагонали'); readln (a,d); b: =sqrt (sqr (d) -sqr (a); S: =a*b; Writeln ('S=',S); End.
Знаете другой ответ?