program raf105;
var
i,n: integer;
begin
write('Введите число: ');
readln(n);
write('Чётные: ');
for i:=1 to n do
if i mod 2 = 0
then write(i,' ');
writeln;
write('Нечётные: ');
for i:=1 to n do
if i mod 2 <> 0
then write(i,' ');
end.
<h3><u>PascalABC 3.4.2</u></h3>
Дом Эльфа <span>был в самом синем цветке на поляне, </span>дом Хмурика<span> – в самой глубокой </span>норе, в чаще леса<span>, а </span>Шишкоед жил<span> в чаще, на самой высокой сосне...</span>
Var a,b,c:integer;
beginb:=100;
writeln('введите число');
readln(a);
repeatif (a>b) then writeln(b);
b:=b+1;
until (b>999);
<span>end.</span>
2i=N
2i=256
I
i=8 бит, (1 байт)
4*1=4байта информации