procedure hase(var k,n,max:integer); //сама последовательность begin if not(odd(n)) then n:=n div 2 else n:=n*3+1; //условие про чётность writeln(n); //вывод нового члена последовательности inc(k); //увеличение значения счётчика шагов if max<n then max:=n; //поиск вершины end;
procedure start(var k,n,max:integer); //название процедуры намекает begin readln(n); k:=0; writeln('Seq:'); max:=integer.MinValue; while n<>1 do hase(k,n,max); writeln('Шаги:',k); writeln('Вершина:',max); end; begin start(k,n,max); end. Пример ввода: 6 Пример вывода: Seq: 3 10 5 16 8 4 2 1 Шаги:8 Вершина:16
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016 begin // инициализация var b:=MatrixRandom(3,3,10,99); // вывод Writeln('Исходная матрица'); for var i:=0 to 2 do begin for var j:=0 to 2 do Write(b[i,j]:3); Writeln end; // транспонирование for var i:=0 to 2 do for var j:=i+1 to 2 do if i<>j then Swap(b[i,j],b[j,i]); // вывод Writeln('Транспонированная матрица'); for var i:=0 to 2 do begin for var j:=0 to 2 do Write(b[i,j]:3); Writeln end end.
4675 bit/s
182325*4= 729 300 bit
729 300 bit ÷ 4675 bit/s = 156 sec