1)составьте программу вычисления суммы чисел в диапазоне от 45 до 115 45+....+115
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N

------------------------ОПЕРАТОР WHILE

оператор while Нужно

Всё вот держи

1)var i,sum:integer;beginsum:=0;i:=45;while (i<=115) do beginsum:=sum+i;i:=i+1;end;writeln( 'Сумма = ', sum );end.2)var i:integer;begini:=2;while (i<=150) do beginIf (i mod 2=0) and (i mod 13=0) thenwriteln(i);i:=i+1;end;end.3)var c,A,i,N:integer;beginwrite('Введите целое число (N>0) N = ');read(N);write('Введите целое число A = ');read(A);c:=1;i:=1;while (i<=N) do beginc:=c*A;i:=i+1;Writeln('A в степени ',i,' := ',c);end;end.