1
2
3
4
5
6
7
8
9
procedure TForm1.Button3Click(Sender: TObject); //поиск максимального элемента
...
begin
...
Max:= StrToFloat(strngrd1.Cells[0,0]);//присвоим значение 1 элемента
for i:=0 to strngrd1.ColCount - 1 do //цикл по столбцам
for j:=0 to strngrd1.RowCount - 1 do //цикл по строкам
...
end;
For( i = 0; i < 5; i++ ) { ind[ i ] = i; a[ i ] = size[ i ] * speed[ i ]; }
// Предположим, что тут надо умножать, хотя из условия это неясно.
for( i = 0; i < 5-1; i++ )
for( j = i+1; j < 5; j++ )
if (a[ i ] < a[ j ]) { swap[ a[ i ], a[ j ]); swap( ind[ i ], ind[ j ] ); }
for( i = 0; i < 4; i++ ) printf( "%d => %d\n", ind[ i ], a[ i ] );
Таблица 32 * 16 = 2⁹ символов. Тогда информационный объем одного символа 9 бит. 600 * 9 = 5.400 бит.
1) В переменной a вычисляется количество четных цифр в числе x, в переменной b - количество нечетных цифр. Общее количество цифр в числе = 3+2=5. Наименьшее пятизначное число, удовлетворяющее условиям = 10001.
2) В переменной L вычисляется количество цифр в числе x, следовательно искомое число трехзначное. Значение 120 можно получить как результат 4*5*6 (все сомножетели >=1 и <=7). Так как в цикле x меняется по правилу x:=x div 8, то искомое число = 654(8) = 428(10).
Від програми в якому він створюється, редагується, зберігається.