var q:integer; i,j:integer;begin writeln('введите площадь'); readln(q); for i:=1 to q do for j:=i to q div i do if i*j=q then writeln('длина: ',j:6,' ширина: ',i)end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
