Запишите программу на языке PascalABC для вычисления площади ромба, если известны длины диагоналей Н и Р
Помогите пожалуйста
Ответы
Ответ дал:
1
var
h, p, s: real;
begin
write('введите диагонали ромба h и p');
readln(h, p);
if (h>0) and (p>0) then
begin
s:=(h+p)/2;
writeln('площадь ромба равна:', s);
end;
else
writeln('неверное условие!');
end.
Вас заинтересует
2 года назад
2 года назад
2 года назад
7 лет назад
7 лет назад