Написать программу, вычитающую площадь ромба если d1=8 a d2=6
Answers & Comments
businessXdak
Решение2 решения может быть, возьми нужное.1. Где переменные нужно водить самомуVar d1,d2:integer;s:real;beginwrite('D1 = ');readln(d1);write('D2 = ');readln(d2);s:=1/2*d1*d2;write('Площадь ромба равна: ',s);end.2. Где переменные уже ведены в программуVar d1,d2:integer;s:real;begind1:=8;d2:=6;s:=1/2*d1*d2;write('Площадь ромба равна: ',s);end.
Answers & Comments