Ответы и объяснения

Лучший Ответ!
  • thn
  • отличник
2014-04-13T15:00:57+00:00
Program z;
var
x,y:double;
begin
readln(x);
if x>=1 then y:=sqrt(x) else y:=sqrt(sin(2*x)+1);
writeln(y);
end.

Комментарий удален
Переменная double - вещественное число (дробное), как тип real, только вмещает большее число:)
Можете написать и real, впрочем
Комментарий удален
readln(x); - вот ввод числа