Предмет: Информатика,
автор: ruslannabiev605
Запишите программу на языке 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.
Похожие вопросы
Предмет: Русский язык,
автор: king54
Предмет: Русский язык,
автор: makszhuravlev1
Предмет: Английский язык,
автор: давид2005
Предмет: Литература,
автор: намбо1
Предмет: Химия,
автор: 20190199