Программа ** языке паскаль сравнить 2 числа а и б если число а>б, то тогда б=а2 если а=б,...

Question

Программа на языке паскаль сравнить 2 числа а и б если число а>б, то тогда б=а2
если а=б, то без изменений
если а<б, то б=корень а

Answer 1

Program zadanie;
var a,b:real;
beginreadln(a,b);
if (a > b)  then b := sqr(a)else if(a < b) then b:=sqrt(a);
writeln(b);
readln;
end.

Comments

напиши еще дну пожалуйста:
у=корень х, если х>0
х+х2, если х<=0

---

ты вообще паскаль не знаешь,в моеё программе 2 строчки изменить!

---

program zadanie;
var x,y:real;
beginreadln(x,y);
if (x > 0) then y := sqrt(x) else y:=x + sqr(x);
writeln(y);
readln;
end.

---

спасибо большое)
я в информатике не понимаю

---

а для чего тебе эти программы?