Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  45
Language: PASCAL
Code:
program koren; 
uses crt; 
var x,y : integer; 
 kor : real; 
 begin 
 write ('Введите 2 числа') ; readln (x,y); 
 if x>y then begin kor := sqrt(x-y); 
 writeln ('Корень = ', kor); end 
 else writeln ('Операция не может быть выполнена'); 
 end.
Comments: