Ответы на вопрос:
Var x,y,k,err: integer; s: string; d,e: real; begin err: =0; read (x,y); d: =max (x+y,y-x) + 3; e: =min (sqr(x)+sqr(y),sqr(y)+x*y) - 4; str (e,s); k: =length(s); val (s,e,err); if (d< e) then begin d: =d+(e div (10*(k-; end else begin d: =power (d,1/(e div (10*(k-; end; writeln (d); end.
Популярно: Информатика
-
Oliichka23.04.2023 13:46
-
iznaur200221.04.2021 08:31
-
maksgolovakha22829.12.2021 13:45
-
lisakiss116.08.2022 03:57
-
JeanSu08.02.2022 01:50
-
Vika200258801.09.2020 12:06
-
коля82726.01.2021 21:24
-
Chehows18.06.2021 22:04
-
Kerri11cjdgg01.07.2020 12:49
-
Nikto5811.11.2021 17:23