На листочке всё написанно, но на всякий пожарны диктую ответы. Это48:
4,
6,
5,
4,
7.
Это49:
5,
2,
5,
5,
7.
Так как дробная часть числа 135,3 является периодической, то есть бесконечной, и содержит в двоичном виде нули, то ответ будет такой: в двоичной записи числа 135,3 бесконечное количество нулей.
135,3₁₀ = 10000111,0(1001)₂
С проверочными данными сами разбирайтесь...
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var a:=ArrFill(ReadInteger('n='),ReadInteger('m=')*60);
Range(1,a.Length-1).ForEach(t->begin a[t]:=a[t-1]+10 end);
a.Println; a.Sum.Println;
end.
Пример:
n= 5
m= 10
600 610 620 630 640
51 ч 40 мин
</span>
Вариант, где реализовано не в виде процедуры sub, а при помощи function