У этой задачи есть более простой решения: заметим,что мы складываам подрят идущие нечетные числа,при этом разность между двумя соседними числами будет 2...Тогда P = 1 + 3 + 5 + 7 + (2n - 1) - сумма членов арифметической прогрессии... Тогда P = (первый член + последний член)/2 × колво членовЗная,чтро первый член будет 1,а последний 2n - 1, и колво этих членов = n,то Р = (1 + 2n - 1)/2×n=2n/2×n = n^2 значит сумма первых n членов данной прогрессии будет равна n^2
программа: var n: integer; begin readln(n); writeln(n*n); end.
если уж делать эту же программу через цикл while,то: var n,P,t: integer; begin readln(n); t = 1; P = 0; while (t < 2*n - 1) do begin P = P + t; t = t + 2; end; writeln(P); end.
Const n = 5; m = 5; var a:array[1..n,1..m] of integer; i,j,s:integer; begin //Для теста заполним массив сл.числами for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(21)-10; write(a[i,j]:4); end; writeln;writeln; end; //сумма всех элементов массива for i:=1 to n do for j:=1 to m do s:=s+a[i,j]; writeln('сумма всех элементов массива: ',s); //сумма каждой строки for i:=1 to n do begin s:=0; for j:=1 to m do begin s:=s+a[i,j]; end; writeln ('Строка: ',i,' сумма:',s); end; end.
// с циклом while var s,i:integer; begin i:=100; while i<=999 do begin if i mod 77 = 0 then s:=s+i; i:=i+1; end; writeln('Сумма трехзначных кратных 77: ',s); end.
заметим,что мы складываам подрят идущие нечетные числа,при этом разность между двумя соседними числами будет 2...Тогда
P = 1 + 3 + 5 + 7 + (2n - 1) - сумма членов арифметической прогрессии...
Тогда P = (первый член + последний член)/2 × колво членовЗная,чтро первый член будет 1,а последний 2n - 1, и колво этих членов = n,то Р = (1 + 2n - 1)/2×n=2n/2×n = n^2
значит сумма первых n членов данной прогрессии будет равна n^2
программа:
var n: integer;
begin
readln(n);
writeln(n*n);
end.
если уж делать эту же программу через цикл while,то:
var n,P,t: integer;
begin
readln(n);
t = 1;
P = 0;
while (t < 2*n - 1) do
begin
P = P + t;
t = t + 2;
end;
writeln(P);
end.