Uses crt; var s: real; n: integer; begin clrscr; write('collichestvo korney: '); readln(n); s: =sqrt(2)*n; write('s=',s: 0: 4); readkey; end.

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку