👤

Doar exercitiul 4 va rog, in Pascal. URGENT! DAU CEL MAI BUN RASPUNS!!!

Doar Exercitiul 4 Va Rog In Pascal URGENT DAU CEL MAI BUN RASPUNS class=

Răspuns :

Program A1;
var x,a:integer; y:real;
begin
Writeln('Introduceti "a" si "x" ');
readln(a,x);
if x<=4 then 
y:=sqrt(4-x)+a*(x*x*x);
if (4<x) and (x<=10) then
y:=a+100/x+1.4;
if x>10 then
y:=a*sqr(x)-10*x+2;
Writeln('y=',y:4:2);
readln;
end.