Ответ: 3
Объяснение: 8 бит = 1 байт
Если размер предложения в байтах (!) оказался на 5 больше, то название нового животного вместе с запятой и пробелом - 5 байт, а без запятой и пробела - 5-1-1 байт = 3 байта, значит длина слова - 3 символа.
Видимо, это фрагмент программы на VB, привязанный к клику по кнопке Button4 на некоторой форме.
<span>Private Sub CommandButton4_Click()
</span><span><span>Max = 0
</span> For j = 1 To n
For i = 1 To m
If Max < a(i, j) Then Max = a(i, j)
Next i
Next j
TextBox2.Text = TextBox2.Text + Str(Max) + " "
End Sub</span>
Здесь ищется, а затем выводится в поле на форме максимальный элемент двухмерного массива, который извне и заполнен некоторыми значениями. Оператор ReDim я убрал, потому что он уничтожит содержимое массива.
Диапозон A5:D7 содержит 12 ячеек.
Смотри во вложении.
Для текущего месяца (т.е. только для октября, потому что не было указано в вопросе учитываются другие месяцы или нет)
program zd;
const
b=26;
var
a,c:byte;
begin
writeln('Введите день');
readln(a);
if a<b then {проверяется условие, если введенный день меньше заданного дня, то вычислить оставшиеся дни}
c:=b-a
else {иначе вывести смс}
writeln('Данный день уже прошёл');
writeln('Осталось', с, 'дней');
end.
Вроде бы правильно) извиняюсь за исправления, просто тороплюсь
Var n:integer;
S:real;
Begin
Write('n = ');ReadLn(n);
S:=0;
For n:= 1 to n do
S:=S+n;
WriteLn('а) S = ',S);
S:=0;
For n:= 1 to n do
S:=S+n*n;
WriteLn('б) S = ',S);
End.