Решим задание наоборот:
52 ->7,
1) прибавь 1,
2) подели на 3.
52 + 1 = 53 (1).
53 + 1 = 54 (1).
54 : 3 = 18 (2).
18 : 3 = 6 (2).
6 + 1 = 7 (1).
Запишем команды снизу-вверх.
Ответ: 12211.
Объекты то какие? Давай примерчик приведу свой.
Телевизор, электричество, провод
Телевизор работает от электричества, а электричество поступает по проводу.
Вот так вот....
Var
a:array[1..1000] of extended;
i,n:longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
writeln;
for i:=1 to n do writeln(a[i]:0:3);
end.
<span>
</span>
С клавы например вводим 11.00, будильник прозвенит через 2 часа, следователь в 13.00.
Вводим 9.00, будильник через 25 часов, будильник прозвонит в 11.00 следующего дня. Также можно сделать и со всеми другими числом только на помнить что в сутках 23 часа.
var
a,b:real;
begin
writeln("Введите рост бамбука за сутки");
readln(a);
b:=a/1440;
writeln(" За минуту бамбук вырастает на ", b:0:3," см");
end.
P.s. Мы делим а на 1440, потому что сначала мы делим (если ввели 86) 86 на 24 и получаем на сколько он вырастает за час, а потому делим на 60 и получаем на сколько вырастает за минуту, значит 60*24=1440, все остальное должно быть понятно