Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Составьте программу, которая вычисляет сумму
пяти нечетных (начиная с выбранного)
натуральных чисел

Ответ оставил Гость

Var
n,i,a:integer;
Begin
Write(Введите число );
Readln(n);
if (n mod 2) = 0 then n:=n+1;
For i:= 1 to 5 do Begin
a:=a+n; n:=n+2;
End;
Write(a, - сумма пяти нечётных чисел);
End.