Задание:
Помогите пожалуйста! Задачи в паскале: 1) Дана длина ребра куба, найти Sгр, Sполн и V куба 2) Вычислите корни кв ур ах 2+ вх + с=0 заданными коэффициентами а, в, с
Решение:
Var l: Integer; begin Write ('Введите длину ребра: '); Readln (l); Writeln ('Площадь боковых граней: ' sqr (l)*4); Writeln ('Полная площадь: ' sqr (l)*6); Writeln ('Объем куба: ' l*l*l); end.2) var a, b, c, d: Real; begin Read (a, b, c); d: =sqr (b) — 4*a*c; if d < 0 then Writeln ('Корней нет') else begin if d=0 then Writeln (-b / a) else begin d: =sqrt (d); Writeln (-b+d) / 2*a); Writeln (-b — d) / 2*a); end; end; end.
Знаете другой ответ?