Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих данного заданного числа n. напишите программу на паскале. p.s. тема урока- программирование циклов

var sum,n,i: integer;

begin

readln(n);

sum: =0;

for i: =1 to n do

    sum: =sum+i;

writeln(sum);

readln;

end.

Заметим, чтобы сгенерировать строку, нужно знать только предыдущую строку. будет генерировать по порядку от 1 до n-ой строки. программа: var   n, i: integer;   cur_str, prev_str: string; begin   read(n);   prev_str : = '';   for i : = 1 to n do {генерируем строки по порядку от 1 до n}   begin     str(i, cur_str); {записываем в текущую строку её порядковый номер}     cur_str : = prev_str + prev_str + cur_str; {дописываем предыдущую строку два раза в начало}     prev_str : = cur_str; {записываем текущею строку вместо предудущей}   end;   writeln(cur_str); end.

// pascalabc.net 3.1, сборка 1250 от 28.05.2016 begin   var x: =arrrandom(readinteger('n='),1,99);   writeln('исходная последовательность'); x.println;   var a: =readinteger('a=');   var i: =x.findindex(e-> e=a);   if i< 0 then writeln(-1)   else       if i< x.length-1 then writeln(x[i+1: ].sum)       else writeln(0) end. тестовое решение: n= 15 исходная последовательность 26 50 92 84 30 60 9 95 46 47 59 54 97 11 36 a= 59 198