Программа на языке паскаль сравнить 2 числа а и б если число а>б, то тогда б=а2
если а=б, то без изменений
если а<б, то б=корень а
если а=б, то без изменений
если а<б, то б=корень а
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.
у=корень х, если х>0
х+х2, если х<=0
var x,y:real;
beginreadln(x,y);
if (x > 0) then y := sqrt(x) else y:=x + sqr(x);
writeln(y);
readln;
end.
я в информатике не понимаю