Процедура Опции

[Client]

имеется программа, надо определить что будет напечатано.

Uses crt;
var
    a,b,c,d:integer;
procedure P(var b:integer; c:integer);
var d:integer;
begin
       a:=5;
       b:=6;
       c:=7;
       d:=8;
       writeln(a,b,c,d)
end;
begin
        a:=1;
        b:=2;
        c:=3;
        d:=4;
        P(a,b);
        writeln(a,b,c,d);
        readkey
end.

Ответ такой:
6678
6234
не могу понять почему 6678 и 6234, насчет 234 как-то вроде понятно, а вто 66 и 6 никак
и какие переменные здесь формальные, а какие параметры?

[Client]

Способ volvo лучше и я не спорю. Не помешает узнать еще что-нибудь об этом
В теме надо найти ошибку в задаче из 3 подпрограмм(2 не выполняются при запуске) volvo сказал что там в цикле используется глобальная переменная, разве ее там не перекрывает локальная? В процедуре Sum да, используется глобальная, а в функции poisk локальная?

Сообщение отредактировано: Client - 5.12.2007 7:35