1)var
fack,x: integer;
begin
x:=0;
fack:=1;
while x<>6 do
x:=x+1;
fack:=fack*x;
end;
write(fack);
end.
2) var
x,y: integer;
x:=4;
while x<>20 do
y:=2*x+7;
x:=x+4;
writeln(x,' ',y);
Объяснение:
1)var
fack,x: integer;
begin
x:=0;
fack:=1;
while x<>6 do
begin
x:=x+1;
fack:=fack*x;
end;
write(fack);
end.
2) var
x,y: integer;
begin
x:=4;
while x<>20 do
begin
y:=2*x+7;
x:=x+4;
writeln(x,' ',y);
end;
end.
Объяснение: