Question

определить значение переменной а после выполнения фрагмента алгоритма. В паскале

Answer 1

Ответ: a = 7

Объяснение:

Код программы:

type int= integer;  

var a: int:=56;

var b: int:=77;

begin

while (a<>b) do begin

if (a>b) then a:=a-b

        else b:=b-a;

end;

writeln(a);

end.

Тестировалось в программе PascalABC.NET версии 3.2, сборка 1387