Var m,n,i,j:longint;
begin
readln(n,m);
if m > n then begin
for i:= n to m do begin
for j:= 1 to i do begin
write(i,' ');
end;
writeln;
end;
end else begin
for i:= m to n do begin
for j:= 1 to i do begin
write(i,' ');
end;
writeln;
end;
end;
end.
<span>Пример объекта-процесса: 1)каникулы 2)гроза 3)процессор 4)компьютер
</span>4 и 3 вот и всё
По методу описания символов:растровые,векторные,контурные и алгоритмические
По размеру кегельной площади знака :моноширинные и пропорциональные
По типу рисунка:рубленые,с засечками,декоративные и рукописные
===== PascalABC.NET =====
begin
for var i := 1 to integer.MaxValue-2 do
if (i+1)*(i+2) - i * i = 50 then
begin
Print(i, i+1, i+2);
break
end
end.
Результат: 16 17 18