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

Написать программу для нахождения суммы первых пяти нечетных чисел (Паскаль)
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы