ответ :(23+y)*(23+y) как-то так. Если нужна программа:
Program Crt;
Var tmp,y:real;
Begin
WriteLn("Введите y= "); ReadLn(y);
tmp:= (23+y)*(23+y);
WriteLn("ответ: ", tmp);
readln();
end.
Объяснение:
ответ :(23+y)*(23+y) как-то так. Если нужна программа:
Program Crt;
Var tmp,y:real;
Begin
WriteLn("Введите y= "); ReadLn(y);
tmp:= (23+y)*(23+y);
WriteLn("ответ: ", tmp);
readln();
end.
Объяснение: