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.
Поделитесь своими знаниями, ответьте на вопрос:
Нарисовать блок схему и составить программу паскаль. x^2-3, если x< 5, z= 11x-4, если x> =5