Регистрация
Lider4k
21.04.2022 16:51
Информатика
Есть ответ 👍

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

197
299
Посмотреть ответы 2

Ответы на вопрос:

Kirill91623
Kirill91623
4,4(25 оценок)

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.

zagariyolga068
zagariyolga068
4,7(21 оценок)

s = 0

N = int(input())

for i in range(1, N):

 s += 1/i

print(s)

Популярно: Информатика