Помогите пожалуйста!!!!Напишите программу на языке Паскаль через цикл repeat, которая вычисляет сумму:а)первых n натуральных чис
Помогите пожалуйста!!!! Напишите программу на языке Паскаль через цикл repeat, которая вычисляет сумму: а)первых n натуральных чисел б)квадратов первых n натуральных чисел в)всех чётных чисел в диапазоне от 1 до n г)всех двузначных чисел
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.
//PascalABC.Net 3.2 procedure swap (var a1, a2: integer); begin var promt:=a1; a1:=a2; a2:=promt; end;
begin var a:=ReadArrInteger ('Вводите массив: ', readinteger ('Размерность : ')); var i:=-1; while (i+2)<length (a) do begin i+=2; swap (a[i], a[i-1]); end; a.Print; end.
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016) begin var n:=ReadInteger('Введите число элементов'); var k:=ReadInteger('Введите число k'); var a:=ArrRandom(n,10,99); a.Println; for var i:=0 to n-1 do if a[i] mod k =0 then println('Кратно',k,a[i]); end.