Что мне нужно добавить в код? вычислить сумму корней квадратных первых n чисел натурального ряда. входные данные: во входном потоке записано единственное целое число n (0 < n < = 100 выходные данные: в выходной поток вывести единственное вещественное число с точностью три знака после запятой. пример входного файла (input.txt): 43 пример выходного файла (output.txt): 191.057 program; var n, s, i: integer; begin read(n); s: =0; for i: =1 to n do begin read; s: =s+i; write; end; write(s: 0: 3); end.

Program gt; var n,i: integer; s: real; begin read(n); for i: =1 to n do begin read; s: =s+sqrt(i); end; writeln(s: 0: 3); end.

Представим слова, как числа в 3сс, (где а=0, о=1, у=2.) тогда: 00000 1место 00001 2место на 101 (10сс) месте будет стоять число 100 (10сс) 100 (10сс) =10201 (3сс) =оауао на 125 (10сс) месте 124(10сс) =11 121 (3сс) = на 170(10сс) месте 169(10сс) = 20021 (3сс) =уаауо на 210 месте 209 (10сс) =21202 (3сс) =уоуау первое число, которое начинается с "о" ==10000 (3сс) = =81 (10сс), номер его места =82 (10сс) последнее, которое начинается на "о" ==12222 (3сс) = =161 (10сс), номер его места =162(10сс)

Program lab; uses crt; vari,a: integer; m: array [1 .. 30] of integer; begin    clrscr; // очистка экрана    randomize; // инициализирует рандом    a: =0; // инициализирует аккумулятор    for i: =1 to 30 do        m[i] : = random(1000); // заполняет массив рандомными числами    for i: =1 to 30 do        if ((m[i] mod 17) = 0) or ((m[i] mod 13) = 0) then // если остаток от деления на 17 или 13 равен             a : = a + m[i]; // то добавить число к сумме    // если аккумулятор больше 0, то вывести вывести его значение    if a> 0 then writeln('a = ',a)    // иначе вывести "чисел нет"    else writeln('чисел нет'); end.