Каллиник
6 год назад
Var x,y,z:real;
begin
write ('x = ');readln(x);
write ('y = ');readln(y);
z: = abs(x)-abs(y)/1+abs(x*y);
writeln('z = ',z);
end.
какую подпрограммы-процедуру можно сделать?
ОТВЕТЫ
Истомин
Jul 24, 2019
Подпрограмму
procedure rez(x,y:real):real;
begin
... rez=xxxxxx
end;
redln(y);
z:=rez(x,y);
writeln(z);
.....
procedure rez(x,y:real):real;
begin
... rez=xxxxxx
end;
redln(y);
z:=rez(x,y);
writeln(z);
.....
38
Смежные вопросы:
