(12 янв 2015, 22:04) (1/0)
[1]
2)1)
Var a,b,c:integer;
Begin
Readln(a,b);
C:= ((a+b)/((a-b)/sqrt(b)))+1
Writeln(c);
End.
Наверно так. На регистр букв не обращай внимания, пиши все маленькие.
Var a,b,c:integer;
Begin
Readln(a,b);
C:= ((a+b)/((a-b)/sqrt(b)))+1
Writeln(c);
End.
Наверно так. На регистр букв не обращай внимания, пиши все маленькие.
- 1 из 1
