Program A_1; uses crt; Var i,n,sum: integer; begin write('Введите N '); readln(n); i:=0; sum:=0; repeat i:=i+1; sum:=sum+i; until i=n; writeln('Сумма чисел от 1 до ',n,' равна ',sum); end.
Program B_2; uses crt; Var i,n,sum: integer; begin write('Введите N '); readln(n); i:=0; sum:=0; repeat i:=i+1; sum:=sum+i*i; until i=n; writeln('Сумма квадратов чисел от 1 до ',n,' равна ',sum); end.
Program V_3; uses crt; Var i,n,sum: integer; begin write('Введите N '); readln(n); i:=0; sum:=0; repeat i:=i+1; if (i mod 2 = 0) then sum:=sum+i; until i=n; writeln('Сумма чётных чисел в диапазоне от 1 до ',n,' равна ',sum); end.
Program G_4; uses crt; Var i,n,sum: integer; begin i:=9; sum:=0; repeat i:=i+1; sum:=sum+i; until i=99; writeln('Сумма всех двузначных чисел равна ',sum); end.
Может ли массив содержать целые и вещественные значения? -Да может,если массив имеет вещественный тип Для чего необходимо описание массива? -Чтобы создать массив с указанным количеством элементов и типом их значений Что вы можете сказать о массиве, сформированном следующим образом: а)Тут мы заполняем массив a с индексами от 1 до 10 случайными целыми числами от -50 до 50 б)Тут мы заполняем массив a с индексами от 1 до 20, присваивая каждому элементу массива значение его индекса в)Тут мы заполняем массив a с индексами от 1 до 5, присваивая каждому элементу массива удвоенное значение его индекса минус 1
Равно (=)
Объяснение:
К примеру, "=СУММ(B2:C5)"