Определите, что выведет на экран программа при вызове F(9).
procedure F(n: integer);
begin
if n > 3 then begin
F(n – 4);
F(n div 2);
end;
write(n);
end;

Question

Информатика: Определите, что выведет на экран программа при вызове F(9). procedure F(n: integer); begin if n 3 then begin F(n – 4); F(n div 2); end; write(n); end;

moskvarodina345 · Accepted Answer

1. Для цикла For

var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
for i := 1 to N do
    p:=p*x;
writeln(x,' в степени ',n,' равно ',p );
end.

2. Для цикла While
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
while i<=n do begin
    p:=p*x;
    i:=i+1;
end;
writeln(x,' в степени ',n,' равно ',p );
end.

3. Для цикла Repeat

var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
repeat
    p:=p*x;
    i:=i+1;
until i>n;
writeln(x,' в степени ',n,' равно ',p );
end.

Определите, что выведет на экран программа при вызове F(9). procedure F(n: integer); begin if n > 3 then begin F(n – 4); F(n div 2); end; write(n); end;

MOGZ ответил

Определите, что выведет на экран программа при вызове F(9).
procedure F(n: integer);
begin
if n > 3 then begin
F(n – 4);
F(n div 2);
end;
write(n);
end;