program HelloWorld;
var N: integer;
var i,ii: integer;
var y: real;
begin
writeln('Введите значение N:');
readln(N);
for i:=N downto 2 do
if i mod 2 = 0 then
y := 2;
for ii:=1 to i-1 do
y := y*2;
writeln(y:10:0);
end;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
program HelloWorld;
var N: integer;
var i,ii: integer;
var y: real;
begin
writeln('Введите значение N:');
readln(N);
for i:=N downto 2 do
if i mod 2 = 0 then
begin
y := 2;
for ii:=1 to i-1 do
y := y*2;
writeln(y:10:0);
end;
end.