Question

Написать программу, вычитающую площадь ромба если d1=8 a d2=6
​

Answer 1

Решение

2 решения может быть, возьми нужное.

1. Где переменные нужно водить самому

Var d1,d2:integer;

s:real;

begin

write('D1 = ');

readln(d1);

write('D2 = ');

readln(d2);

s:=1/2*d1*d2;

write('Площадь ромба равна: ',s);

end.

2. Где переменные уже ведены в программу

Var d1,d2:integer;

s:real;

begin

d1:=8;

d2:=6;

s:=1/2*d1*d2;

write('Площадь ромба равна: ',s);

end.