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.
uses crt, math
.........................
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
