Var a,b:real; Begin Write('Длина = ');ReadLn(a); Write('Ширина = ');ReadLn(b); if a=b then Write('Является квадратом') else WriteLn('Не является квадратом') End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
