Составить программу нахождения суммы 10 четных чисел на Паскале
Составить программу нахождения суммы 10 четных чисел на Паскале
Гость
Ответ(ы) на вопрос:
ГостьProgram P17; Var i, sum: integer; Begin Sum:=0; For i:=1 to 10 do Sum:=sum+i; Writeln('sum = ',sum); End.
Не нашли ответ?
Похожие вопросы