Question

Pascal. Нужно просто вычислить значение выражения по формуле

Answer 1

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.