Var r, i: integer;
begin
write('r = ');
readln(r);
for i := r downto 1 do
if Tan(i) < 0 then
break;
write(i);
<span>end.</span>
Program time;var x, a, b, c, d: integer;begin readln(x); a:= x div 1000; b:= (x mod 1000) div 100; c:= (x mod 100) div 10; d := x mod 10; writeln(d,c,b,a);end.
Флэшка,Диск,Жесткий Диск,
256000 * 60 * 2 / 8 / 1024 = 3750 (Kb)
256000 * 60 - бит в минуту;
256000 * 60 * 2 - за 2 минуты;
256000 * 60 * 2 / 8 - байт за 2 минуты;
256000 * 60 * 2 / 8 / 1024 - килобайт за 2 минуты.
1) 111111_2 = 63_10
2) 10001010_2 = 138_10 если подразумевается беззнаковое целое