Var d,time,hours,min:integer;
begin
readln(d);
time:=d*120;
hours:=time div 3600;
min:=time mod 3600 div 60;
writeln('it is ',hours,' hours ',min,' minutes');
end.
Var n:longint;
function kol(n:integer):integer;
begin
if n<10
then kol:=1
else kol:=kol(n div 10)+1;
end;
begin
write('n = ');
readln(n);
writeln('k = ',kol(n));
end.
Пример:
<span>n = 15324
k = 5</span>
Если да, то
0001 - 1
0010 - 2
0100 - 4
1000 - 8
10000 - 16
25 = 16 + 8 + 1 = 11001
12 = 8 + 4 = 1100
Нужно уберегать, в первую очередь, от электростатических зарядов при установке.