А) 30<span>0.5
б) </span>42322.125<span>
в) </span>10110110<span>0.1</span>
8(2^3) символов => каждый символ весит 3 бита
3б*120 = 360 Бит
Видимо, это фрагмент программы на 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 я убрал, потому что он уничтожит содержимое массива.
Program sh;
var n,k: integer;
begin
write('введите кол-во школьников: ');
readln(n);
write('введите кол-во яблок: ');
readln(k);
writeln('останется в корзинке: ', k mod n);
writeln('достанется каждому по ', k div n);
end.
Program TxtManipula;
uses crt;
var txt:string;
begin Writeln('Введите строку');
Readln(txt);
Writeln('Длина строки:',length(txt));
Insert('о',txt,2);
Writeln(txt);
Delete (txt.length(txt),1);
Writeln(txt);
Readln();
<span>end.
PS: скомпилированный файл TxtManipula.exe в архиве, это вставленный документ ворд. Просто поменяй расширение docx на zip.</span>