1-89 кб 890000 байт
2-а флешка 1
б потому что легяе скидывать файлы на это устройство и передать учителю и проще использовать
1.
var a:array [1..15] of integer;
i:integer;
begin
for i:=1 to 15 do a[i]:=i*2;
write (a)
end.
2.
var a:array [1..10] of integer;
i:integer;
begin
writeln ('Введите 10 элементов массива через пробел.Потом нажмите Enter.');
for i:=1 to 10 do read(a[i]);
write ('Элементы с нечётными индексами: ');
for i:=1 to 10 do if i mod 2 <> 0 then write (a[i],' ');
writeln;
write ('Элементы с чётными индексами: ');
for i:=1 to 10 do if i mod 2 = 0 then write (a[i],' ')
end.
1) 8, 10, 16
2) 11111(2), 37(8), 31(10), 1F(16)
3) -61(10) = 11000011(2); 99(10) = 1100011(2)
4) 892310
5) 32
6) 1809