// PascalABC.NET 3.1, сборка 1179 от 29.02.2016 begin var n:=ReadInteger('n='); if n>36 then begin Writeln('Слишком много, максимум 72'); Exit end else begin var a:=new integer[n]; var k:=0; for var i:=1 to 8 do for var j:=i+1 to 9 do begin a[i]:=10*i+j; Write(a[i],' '); Inc(k); if k>n then Exit end end end.
ЛИНЕЙНЫЙ АЛГОРИТМ состоит из последовательности операций, выполняющихся только один раз в порядке следования: На практике линейные алгоритмы в чистом виде встречаются редко: при расчете арифметических и алгебраических выражений, при расчете по формулам, при решении ряда бытовых задач.
Блок-схема — распространенный тип схем (графических моделей), описывающих алгоритмы или процессы, в которых отдельные шаги изображаются в виде блоковразличной формы, соединенных между собой линиями, указывающими направление последовательности.
Алгоритм ветвления- это алгоритм, в котором выбирается один из нескольких вариантов (путей).
begin
var n:=ReadInteger('n=');
if n>36 then begin
Writeln('Слишком много, максимум 72');
Exit
end
else begin
var a:=new integer[n];
var k:=0;
for var i:=1 to 8 do
for var j:=i+1 to 9 do begin
a[i]:=10*i+j;
Write(a[i],' ');
Inc(k);
if k>n then Exit
end
end
end.
Тестовое решение:
n= 36
12 13 14 15 16 17 18 19 23 24 25 26 27 28 29 34 35 36 37 38 39 45 46 47 48 49 56 57 58 59 67 68 69 78 79 89