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

1)var  i,sum: integer; begin sum: =0; i: =45; while (i< =115) do begin sum: =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; begin write('введите целое число (n> 0) n = '); read(n); write('введите целое число a = '); read(a); c: =1; i: =1; while (i< =n) do begin c: =c*a; i: =i+1; writeln('a в степени ',i,' : = ',c); end; end.

артефакт, инстинкт, антрацит, оригинал.

правило шифрования - слова написаны справа налево, т.е. наоборот.

program p;

vara,b,c,i,j,n : integer;

beginwriteln('введите три числа'); readln(a,b,c);

if a> b then if a> c then writeln(a,c,b) else writeln(c,a,b) else if c> b then writeln(a,b,c) else writeln(b,c,a);  

readln; end.