Ответ:
а) 865 = 1101100001 = 1541 = 361
б) 785 = 1100010001 = 1421 = 311
в) 149 = 10010101 = 225 = 95
г) 683 = 1010101011 = 1253 = 2AB
д) 7260 = 1110001011100 = 16134 = 1C5C
Вот так гораздо проще.
var s:string;
begin
readln(s);
writeln(length(s));
end.
1. a)
б)
в)
2. Вася работает на стройке. В первый день Вася натаскал 15кг материалов, во второй - 30, в третий - 10(Столбики А1, А2, А3 соответственно). В А4 запишите сколько вася натаскал за 3 дня. В колонке B запишите(через формулы) отношение за соответствующий день к общему количеству в процентах.
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(10, -10, 10);
a.Println;
var i := a.IndexMin;
Writeln('Min a[', i + 1, ']=', a[i]);
i := a.IndexMax;
Writeln('Max a[', i + 1, ']=', a[i])
end.
<h2>-6 -10 9 0 -9 2 10 -7 1 3</h2><h2>Min a[2]=-10</h2><h2>Max a[7]=10</h2>