Var i,k:integer; s:real; a:array[1..7] of real;beginclrscr;k:=0; s:=0;writeln('Введите среднюю дневную температуру с понедельника по воскресенье:');for i:=1 to 7 do begin Write(i,'-я:'); readln(a[i]); if a[i]<0 then k:=1; s:=s+a[i]; end; Writeln('Средняя температура за неделю составила ',s/7, ' градусов'); if k=1 then writeln('Были заморозки');end.
София-Соня-Софья. Скорее всего, так. с:
Общий размер S = 13 кБайт = 13*1024 байт = 13 * 8 * 1024 бит.
Всего пикселей P = 256 * 104.
Определим сколько бит приходится на один пиксель (бит/пиксель):
Сколько цветов можно закодировать этим количеством пикселей (мощность алфавита):
Перемещение курсора по тексту осуществляется клавишами "вправо" и "влево". Если текст достаточно длинный, справа от него возникает полоса прокрутки. В целях облегчения последовательного чтения пользователем текста другая навигация по тексту не предусматривалась.Для уменьшения числа случайных ошибок отсутствует возможность редактирования текста в местах, не предусматривающих наличие правил.Все места, помеченные синим цветом являются ловушками.Для работы с ловушкой необходимо подвести курсор к этому месту (слева или справа) и нажать клавишу, соответствующую выбранному символу. Если Вы ошиблись при вводе, нужно воспользоваться клавишей "delete" или "backspace".Переключении раскладки клавиатуры на русский язык происходит автоматически.