Паскаль,братцы пожалуйста помогите((
Program z3;
var y:real; x:integer ;
begin
writeln(Введите X);
readln(x);
if x>=10 then
y:=sqrt((x-5)/2) else
y:=(x-5)/2;
writeln(При x = ,x , y= ,y:4:2);
readln
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
