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.

Answer 2

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

Answer 3

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

Answer 4

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.