Запишите программу на языке PascalABC для вычисления площади ромба, если известны длины диагоналей Н и Р
21rudik21
3
17.05.2020 23:28
1
Другие вопросы по теме Информатика
baten
27.04.2020 11:30
саня2271337
27.04.2020 11:30
KaratisT222
27.04.2020 12:13
UmnikBest
27.04.2020 12:13
djhvh235
27.04.2020 12:14
Карпыч1
27.04.2020 12:14
Madinamkm
21.10.2020 16:52
Учебник2017
05.05.2020 20:59
vramazanova4
05.05.2020 20:59
Популярные вопросы
- Чому дорівнює xx+x+x= 9. ів на халяву))...
2 - умоляю1. что называют абсолютной энтропией данного вещества? Приведите в...
2 - решить 1) у = 7х³; 2) у = 5х -8 ; ) у = (7х – 2) (4х² - х+ 3); 4) у = (4х²...
2 - с сочинением по англ на тему One should choose a future profession according...
3 - Кто-то может дать свою инсту или номер, что б потому что тут по одному во...
2 - Які тенденц гають у розвитку і розміщенні виробництв автомобільної промисловості...
2 - Поставь глаголы в неопределенную форму. Скучали -. Прячут - . Читает - ....
2 - WritingJComplete the letter to your friend about your holiday. Use the letter...
2 - Sin^2 x + 2 cos x + 2 = 0...
3 - Сравните модели интеллекта Ч. Спирмена, Р. Кеттелла и Л. Терстоуна...
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.