Pascal. Нужно просто вычислить значение выражения по формуле
Answers & Comments
estengseant
Var y,x,a: Integer; begin writeln('Введите x: '); readln(x); writeln('Введите a: '); readln(a); if x<9 then writeln('x<9, y=x+a=',x+a); if x>9 then writeln('x>9, y=x-a=',x-a); if x=0 then writeln('x=0, y=x²+a²=',(x*x)+(a*a)); end.
Answers & Comments
begin
writeln('Введите x: ');
readln(x);
writeln('Введите a: ');
readln(a);
if x<9 then
writeln('x<9, y=x+a=',x+a);
if x>9 then
writeln('x>9, y=x-a=',x-a);
if x=0 then
writeln('x=0, y=x²+a²=',(x*x)+(a*a));
end.