Дана программа на языке ПАСКАЛЬ:
var i, n, p : integer;
BEGIN
n:=6; p:=1;
for i:=1 to n do
p:=p*i;
writeln (p);
END.
Тогда результатом работы этой программы является ...
Дана программа на языке ПАСКАЛЬ:
var a, b : integer;
BEGIN
a:=24; b:=40;
while a<>b do
if a>b then a:=a-b
else b:=b-a;
writeln (a);
END.
Тогда результатом работы этой программы является ...