Var d1,d2,d3,d4:integer; //диагонали ромбов(d1 и d2 -первый ромб; d3 и d4 - второй ромб) begin readln(d1,d2,d3,d4); //S ромба = 0.5*d1*d2; if 0.5*d1*d2 = 0.5*d3*d4 then writeln('Площади ромбов равны') else writeln('Площади ромбов не равны'); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
