1. Excel
2. Ячейка
3. Буква английского алфавита
4. Целое число
5. Адрес, имя
6. Активная, текущая, редактируемая
7. Диапазон
8. =
9. Число, текст, дата/время (выбери, что подходит) .
Если только синтаксические ошибки убрать, то должно быть так:
Private Sub CommandButton1_Click()
Dim A(1 To 5, 1 To 5) As Single
Dim i As Integer, j As Integer, k As Integer
Dim sr As String
k = 0
ListBox1.Clear
For i = 1 To 5
sr = ""
For j = 1 To 5
A(i, j) = i + 0.5 * j
sr = sr + " " + Format(A(i, j), "0.000") + " "
If (A(i, j) > 1) And (A(i, j) < 2.5) Then k = k + 1
Next j
ListBox1.AddItem (sr)
Next i
TextBox1.Text = Str(k)
End Sub
А если неверно запрограммировано, то надо знать, что и как должно делаться.
Это объект любой окружающего мира
Program gt;
var n,i,a:integer;
begin
read(N);
a:=n div 4;
for i:=1 to a do
begin
if((n-i*4)mod 2=0)then writeln((n-i*4),' лап гусей и ',i*4,' лап заёцев');
end;
<span>end.</span>
Program zzz;
var days:integer;
var discount, sum:real;
var days2:integer;
begin
readln(days, discount, sum);
days2 := 0;
sum := 0;
discount := discount / 10;
while( days2 <= days ) do begin
sum := sum + (sum * discount); {я не до конца понял задание, посему, скорее всего, придется тут менять}
sum := sum + 3;
days2 := days2 + 1;
end;
writeln('Ответ: ', sum);
<span>end.</span>
