Var
A: integer;
Begin
Write('Введите трёхзначное число: ');ReadLn(A);
A := (A mod 10)*100 + (A div 10);
WriteLn(A);
End.
1)
<span>8730 bit/s
</span>715860*8=5726880 bit
5726880 bit / 8730 bit/s = 656 sec
2)
695Kb * 1024 = 711680 byte
711680*8=5693440
(11*60)+35 = 695 s
5693440 bit / 695 s = 8192 bit/s
3)
3550Kb * 1024 = 3635200 byte
3635200 * 8 = 29081600 bit
(11*60)+50 = 710 s
29081600 / 710 = 40960 bit/s
Pascal:
a: array [1..10000] of integer;
i, n, m: integer;
begin
readln(n);
for i := 1 to n do
read(a[i]);
m := 1;
for i := 2 to n do
if (a[i] > a[m])
then m := i;
writeln(a[m],' ',m);
end.