Нужно написать программу как я понял:
Тебе нужно составить массив считающий сумму времени от первой строки до 40ой, первый элемент массива(arr[i]) = 1;
К каждому последующему элементу массива добавляешь 10%;
Создаешь еще одну переменную , допустим k = 0;
в нее записываем результаты;
arr[i]= arr[i]+ 10%;
k= k + arr[i];
, и все это нужно делать до времени i >=40;
Затем нужно вывести значение k;
Это и будет потраченное время
var
arr: array [1..100]of integer;
i, size: integer;
begin
writeln('Введите размерность последовательности: ');
readln(size);
for i := 1 to size do
readln(arr[i]);
i := 1;
repeat
writeln(arr[i], ' ');
inc(i);
until arr[i] = 0;
writeln(0);
end.
1 байт - 8 бит
80000 бит/с = 10000 байт/с
1 Кбайт - 1024 байт
10000 байт * 50с = 500000 байт(за 50 с )
Дальше сам,данные есть,решай по формуле S=tV (V -скорость)
1. (1кг)___( ? )
2. (2кг)___( ? )
3. (1кг + 2кг)___( ? )
4. (4кг)___( ? )
5. (4кг + 1кг)___( ? )
6. (4кг + 2кг)___( ? )
7. (4кг + 2кг + 1кг)___( ? )
Ответ: на весах можно взвесить любой целый вес от 1 до 7.