Program n1;
var a: array[1..30] of integer;
n,i: integer;
function st(i: integer): integer;
begin
st:=1;
for i:=1 to i do st:=st*2
end;
begin
readln(n);
for i:=1 to n do a[i]:=st(i);
for i:=n downto 1 do write(a[i],' ');
end.
<span>Вчера решал 238 вышло, могу ошибаться..
</span>
Есть видео "Cоздание тестов в среде MS PowerPoint"
1)
Birthday1.asf - 24.12.15
Birthday2.asf - 15.07.16
Clip_1.mpeg - 24.07.14
Clip_2.mov - 24.10.16
Clip_3.mov - 01.07.14
Family.avi - 12.08.13
Friends1.mov - 25.07.14
Friends2.mov - 04.01.14
Video1.avi - 19.07.14
Video2.avi - 21.11.13
Video3.wmv - 24.06.14
Video4.wmv - 10.07.15
2)
Birthday2.asf - 15.07.16
Clip_1.mpeg - 24.07.14
Clip_3.mov - 01.07.14
Family.avi - 12.08.13
Friends2.mov - 04.01.14
Video2.avi - 21.11.13
Video4.wmv - 10.07.15
3)
Family.avi - 12.08.13
Video2.avi - 21.11.13
Friends2.mov - 04.01.14
Clip_3.mov - 01.07.14
Clip_1.mpeg - 24.07.14
Video4.wmv - 10.07.15
Birthday2.asf - 15.07.16
Итог :
Video2.avi - 21.11.13
Clip_3.mov - 01.07.14
Clip_1.mpeg - 24.07.14
Video4.wmv - 10.07.15
Birthday2.asf - 15.07.16
Ответ: 5