var
f: integer;
begin
write('Сколько дней: ');
readln(f);
writeln('Полных недель: ', f div 7);
writeln('Полных месяцев (берем месяц 30 дней): ', f div 30);
end.
Var ar:array[1..10] of integer;
i,k1,k2,k3:integer;
begin;
randomize;
k2:=1;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(10);
write(ar[i]:4);
if odd(i) then k2:=k2*ar[i] else k1:=k1+ar[i];
if ar[i]>3 then inc(k3);
end;
writeln;
writeln('1:',k1);
writeln('2:',k2);
writeln('3:',k3);
end.
Для начала вычислим скорость данных по каналу: 3072Кбайт/5 мин=614,4 Кбайт/мин. Следовательно, файл размером 6144 Кбайт можно передать за 6144/614,4=10 мин
27)а.г
28) a,г
27) Можно разместить с указанием источника, чтобы не получить АП
Можно скачать картинку, т.к она общественная и может увидеть любой
28) можно, потому что. А.С Пушкин умер, и все его произведения отданы народу и все могут уже их знать.
Описания квадрата тоже много где можно увидеть
1,5 Мб=1,5*1024*1024 байт
Необходимая память для 1 пикселя (глубина цвета):
1,5*1024*1024/(1024*512) = 3 байта = 3*8 бит = 24 бита
Максимальное количество цветов = 2^24 = 16 777 216