Написать программу для нахождения суммы первых пяти нечетных чисел (Паскаль)

Question

Написать программу для нахождения суммы первых пяти нечетных чисел (Паскаль)

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a,sum,kol:integer; begin kol:=1; a:=1; sum:=0; while (kol<=5) do begin if a mod 2 =1 then begin sum:=sum+a; kol:=kol+1; end; a:=a+1; end; writeln('сумма первых пяти нечётных чисел = ',sum); end.