Предмет: Информатика, автор: ruslannabiev605

Запишите программу на языке PascalABC для вычисления площади ромба, если известны длины диагоналей Н и Р

Помогите пожалуйста

Ответы

Автор ответа: permanentloneliness
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.

Похожие вопросы
Предмет: Русский язык, автор: makszhuravlev1
Предмет: Литература, автор: намбо1