Костя - Гирлянды из золотой бумаги;
Женя - Гирлянды из серебристой бумаги;
Дима - Хлопушки из золотой бумаги;
Вадим - Шары из красной бумаги.
Валерия 12.5 мб/с Олеся 11.8 мб/с Полина 12.9 мб/с
3600/12.9=279
program fantscrin;
const n = 8;
var a: array [1..n] of integer;
i,s:integer;
Begin
for i:=1 to n do
a[i]:= random(11)+1;
for i:=1 to n do
write(a[i], ' ');
p:=1;
for i:=1 to n do
if (i mod 2 <> 0) then p:=p*a[i];
writeln('');
writeln('Произведение = ',p);
End.
Ответ:
50 байтов=400бит
Объяснение:
потому что там 48 букв и ,'! в итоге 50
Var i: Integer;
Begin for i := -20 to 20 do
if i mod 2 = 0 then write(i,' ');
<span>End.</span>