var
a,b,s,c:real;
begin
write('a b:');readln(a,b);
c:=sqrt(sqr(a)+sqr(b));
S:=a*b/2;
writeln('c:',c,', S:',S);
end.
var
a,b,s,c:real;
procedure Sc(var a,b:real);
begin
c:=sqrt(sqr(a)+sqr(b));
S:=a*b/2;
writeln('c:',c,', S:',S);
end;
begin
write('a b:');readln(a,b);
Sc(a,b);
end.
var
a,b,s,c:real;
function Sss(var a,b:real):real;
begin
Sss:=a*b/2;
end;
function Ccc(var a,b:real):real;
begin
Ccc:=sqrt(sqr(a)+sqr(b));
end;
begin
write('a b:');readln(a,b);
S:=Sss(a,b); c:=Ccc(a,b);
writeln('c:',c,', S:',S);
end.
707057
Объяснение:
Начало:
a = '2'
b = '3'
c = '5'
d = '7'
После первой функции f (значение переменной b меняется на значение переменной a, значение переменной с в программе остаётся без изменений, т.к. это локальная переменная и из функции не передаётся):
a = '2'
b = '2'
c = '5'
d = '7'
После функции g (изменяется значение переменной a, значение переменной с в программе остаётся без изменений, т.к. это локальная переменная и из функции не передаётся):
a = '70' (a = d + c = '7' + '0' = '70', т.к. в функции с = '0')
b = '2'
c = '5'
d = '7'
После второй функции f (значение переменной b меняется на значение переменной a, значение переменной с в программе остаётся без изменений, т.к. это локальная переменная и из функции не передаётся):
a = '70'
b = '70'
c = '5'
d = '7'
a + b + c + d = '70' + '70' + '5' + '7' = '707057'
