Var
i: integer;
ar: array[1..8]of integer;
begin
for i := 1 to 8 do read(ar[i]);
for i := 1 to 8 do
if(i mod 2 = 0) then write(ar[i], ' ');
end.
Var
number, day, month: integer;
begin
writeln('Напишите день');
readln(number);
day := (number mod 30);
month := (number div 30);
writeln(day, '.', month);
end.
1) s:=1*2=2
2)s:=2*2=4
3)s:=4*2=8
4)s:=8*2=16
5)s:=16*2=32
6)s:=32*2=64
7)s:=64*2=128
Ответ: s:=128
1 Байт = 8 Бт
1 Килобайт = 8 кБт
1 Мегабайт = 8 мБт
1 Гигабайт = 8 гБт
Формула:
Бт = Байт * 8;
кБт = Килобайт * 8;
мБт = Мбайт * 8;
гБт = Гбайт * 8.