Ввести натуральное число n и найти сумму всех чисел от 1 до n (в кумире, не через арифметическую прогрессию)

Алг сумма1n нач     цел n, сумма, i     вывод "введите n: "     ввод n     сумма : = 0     нц для i от 1 до n       сумма : = сумма + i     кц     вывод "сумма равна ", сумма кон

// pascalabc.net function isnice(n: longint): boolean; // отвечает на вопрос, является ли число красивым var   d,nd,sd: byte; begin   sd: =0; nd: =0;   repeat       d: =n mod 10;       sd: =sd+d; inc(nd);       n: =n div 10   until n=0;   isnice: =(sd mod nd = 0) end; var   i,n,k: longint; begin   write('порядковый номер "красивого" числа: '); read(n);   i: =1; k: =0;   repeat       if isnice(i) then inc(k);       if k< > n then inc(i)   until k=n;   writeln('красивое число равно ',i) end. тестовое решение: порядковый номер "красивого" числа: 15 красивое число равно 20

Т.к.  rgb  расшифровывается  как  red  (красный)  green  (зеленый)  и  blue  (синий),  то  и  цифры  указывают  соответственно  назыщенность  этих  цветов  в  смеси от 0 - совсем нет до  255  -  100%  насыщенность 1)  0,255,0 - максимум  зеленого  -  соответствует  зеленому 2)  255,  255,  255  -  максимум  по  всем  каналам  -  соответствует  белому  цвету 3)  0,0,0  -  минимум  по  всем  каналам,  соответственно  черному 4)  0,0,255  -  синий 5)  255,0,0  -  соответственно  красный