1) Begin var a,b:integer; WriteLN('Введите градус: '); ReadLN(a); if a > 600 then begin WriteLN('Пожарная ситуация') end; if b < 600 then begin WriteLN('Рабочая ситуация') end; end. 2) Begin var a:integer; WriteLN('Введите номер дня недели: '); ReadLN(a); if a = 1 then begin WriteLN('Понедельник-Количество уроков: 6') end; if a = 2 then begin WriteLN('Вторник-Количество уроков: 6') end; if a = 3 then begin WriteLN('Среда-Количество уроков: 6') end; if a = 4 then begin WriteLN('Четверг-Количество уроков: 6') end; if a = 5 then begin WriteLN('Пятница-Количество уроков: 6') end; if a = 6 then begin WriteLN('Суббота-Количество уроков: 6') end; end.
26 заглавных букв + 26 строчных букв + 10 цифр + 6 символов = 68 знаков используются в паролях.
Один такой знак занимает минимально 7 бит (2^6=64 < 68 < 128=2^7). Но символы кодируют целым числом байт. значит по 1 байту (8 бит) на символ. Длина пароля равна 12 символов, которые занимают 12 байт.
Всего выделено 1080 байт на 40 пользователей, то есть 1080/40 = 27 байт на одного пользователя.
Из них 12 байт занято под пароль. Остается 27-12=15 байт можно использовать для хранения дополнительных сведений о каждом пользователе
А задание какое? Или что? ну напиши: фамилию , имя, класс и вариант СОРа