Напишите программу так, чтобы она находила сумму первых n нечетных чисел. Выполните...

Question

Напишите программу так, чтобы она находила сумму первых n нечетных чисел. Выполните трассировку программы в тетради. Протестируйте программу на компьютере.СРОЧНО НАПИШИТЕ В ПАСКАЛЕ ПОЖАЛУЙСТА ЧЕРЕЗ while! S = 1 + 3 + 5 +7 + 9 +… +N

Answer 1

Var x,s:integer;
begin
ReadLn(x);
while (x>0) do begin
s+=x;
x-=1;
end;
WriteLn(s);
end.