Ответ:Как то так
Объяснение:
m = int(input("Введите месяц: "))
d = int(input("Введите день: "))
while d <= 31:
print("Месяц: " + str(m),"День: " + str(d))
d += 7
if m == 9 and d > 30:
m = 10
d -= 30
if m == 10 and d > 31:
m = 11
d -= 31
if m == 11 and d > 30:
m = 12
d -= 30
if m == 10 and d > 31:
m = 11
d -= 31
if m == 11 and d > 30:
m = 12
d -= 30
if m == 11 and d > 30:
m = 12
d -= 30
бірінші жолда 10, 16; төртінші жолда 18,4,0; бесінші жолда 11,4,6, (әрі қарай білмеймін)
Пусть даны a и b
a := a + b;
b := a - b;
a := a - b;
Проверка:
а = 1; b = 2;
a = 1 + 2 = 3;
b = 3 - 2 = 1;
a = 3 - 1 = 2;
a = 2; b = 1;
Всё верно!
Поменяли значения местами:)
Если расчёт с идеальными условиями (т.е. которых не бывает)
За первый час со скоростью 40 КБит/с он скачает
КБит + ещё за следующие 3 часа
Кбит = 792000КБит
За 4 часа ответ В).
P.S. Факторы влияющие на работу линии бесчисленное множество(Потеря пакетов, избыточная информация в пакета, стабильность соединения и т.п.). Так что в идеале так и будет, но к счастью мир не идеален, в чём его и прелесть)))
Const
maxn = 15;
type
myarr = array [1..maxn] of longint;
var
a: myarr;
k1, k2, k3, sr, i: longint;
begin
for i := 1 to 15 do begin
read(a[i]);
sr := sr + a[i];
end;
sr := sr div 15;
for i := 1 to 15 do begin
if (a[i] > sr) then
inc(k1);
if (a[i] = sr) then
inc(k2);
if (a[i] < sr) then
inc(k3);
end;
writeln('Количество элементов, больших среднего арифметического, = ', k1);
writeln('Количество элементов, равного среднему арифметическому, = ', k2);
writeln('Количество элементов, меньших среднего арифметического, = ', k3);
end.