Дано описание процедуры

@Анюта95 · Регистрация: 10.11.2012

Author24 — интернет-сервис помощи студентам

Pascal

procedure A(a:real; var b:real);
begin
if a<0 then
b:=-a
else
b:=a
end;

и вызов процедуры A(l,z)
Напишите программу,подстановка которой на место вызова процедуры и ее выполнение эквивалентна выполнению заданного вызова процедуры.

@Puporev · 26.11.2012, 19:18

Pascal

uses crt;
var a,b:real;
begin
clrscr;
write('Введите a=');
readln(a);
if a<0 then b:=-a
else b:=a;
write('b=',b:0:2);
readln
end.

	26.11.2012, 19:18