Задачка на паскале

[meriguan02]

вот еще одна задачка
есть код на паскале

var i:integer;
begin
for i:=1 to 6 do
begin
case i of
1,3,5:x:=1;
2,4,6:x:=128;
end;
writeln(x);
end;
end.


Необходимо написать программу вида

var i:integer;
begin
for i:=1 to 6 do
begin
writeln(формула);
end;
end.

Ответы в коменты

Comments

[FaintEmber]

Так, что ли?

uses crt;

var x,i: integer;

BEGIN
Clrscr;

for i:=1 to 6 do
begin
if i mod 2=0 then
begin
x:=128;
writeln(x);
end
else
begin
x:=1;
writeln(x);
end;
end;
Readkey();

END.

[[revolver]]

тупая задача на самом деле. Формул можно придумать кучу. например:

x := 128 - 127 * (i AND 1);