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
По горизонтали: 1. Механическое устройство ввода, преобразующее движение в сигнал(мышь) 2. Самое используемое из кнопочных устройств ввода (клавиатура) 3. Какой информационный процесс обеспечивает микрофон?(ввод) 4. Главные составляющие компьютера: оперативная память, материнская плата и...(процессор) 5.Объявление переменной и присваивание ей определённого значения-это...(инициализация) По вертикали: 1. Какой информационный процесс обеспечивают динамики? (вывод) 2. Как иначе называется оперативная память? (озу) 3. Какой информационный процесс обеспечивает носитель информации?(хранение) 4. Язык программирования, созданный Клаусом Виртом.(Паскаль) 5. Устройство выполнять заданную, чётко определённую изменяемую последовательность операций(компьютер)
