Var a,b:real; begin read (a,b); if (a<>b) and (a>0) and (b>0) then begin if (a>b) then writeln (b); if (b>a) then writeln (a); end else writeln ('Неверные площади'); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
