Скорость передачи данных по некоторому каналу связи равна 512 кбит/с. передача файла по этому каналу связи равна 7 минут. определите размер файла в мегабайтах.
Если принять скорость передачи данных постоянной и максимальной, для канала 512 Кбит/с на всем промежутке отправки файла, то можем высчитать размер файла таким образом: 1. 7 минут = 7 * 60 секунд = 420 секунд. 2. 512 Кбит/с * 420 секунд = 215 040 Кбит. 3. 215 040 Кбит / 8 бит = 26 880 Кбайт 4. 26 880 Кбайт / 1 024 = 26,25 Мбайт
Тут есть несколько вариантов, как это можно записать:
Если номера месяцев не превысят 12, то есть имеются ввиду только месяцы одного года, то вот так:
Var N:integer; Begin WriteLn('Введите номер месяца'); ReadLn(N); if (N = 12)or(N = 1)or(N = 2) then WriteLn('Зима') //если N = 12, 1 или 2, то выводим 'Зима', иначе идём по следующей ветке if, проверяем следующее условие else if (N = 3)or(N = 4)or(N = 5) then WriteLn('Весна') // тут точно также N = 3, 4 или 5, если нет - то проверяем следующее условие else if (N = 6)or(N = 7)or(N = 8) then WriteLn('Лето') else if (N = 9)or(N = 10)or(N = 11) then WriteLn('Осень') End.
Если же номер месяца может превысить 12, то перед проверкой нужно найти остаток от деления этого числа на количество месяцев, то есть на 12. При этом остаток от деления 12 на 12 = 0.
Var N:integer; Begin WriteLn('Введите номер месяца'); ReadLn(N); N:= N mod 12; if (N = 0)or(N = 1)or(N = 2) then WriteLn('Зима') else if (N = 3)or(N = 4)or(N = 5) then WriteLn('Весна') else if (N = 6)or(N = 7)or(N = 8) then WriteLn('Лето') else if (N = 9)or(N = 10)or(N = 11) then WriteLn('Осень') End.
Эти же самые условия можно записать иначе: if (N>=0)and(N<=2) then или: if (N>=0)and(N<3) then
1. 7 минут = 7 * 60 секунд = 420 секунд.
2. 512 Кбит/с * 420 секунд = 215 040 Кбит.
3. 215 040 Кбит / 8 бит = 26 880 Кбайт
4. 26 880 Кбайт / 1 024 = 26,25 Мбайт