70

Подсчитатьсумму всех четных натуральных чисел до 40 в программе Паскаль.

20 апреля 2023

Подсчитатьсумму всех четных натуральных чисел до 40 в программе Паскаль.

категория: информатика

51

program xxx; var i, s: integer; begin s: =0; i: =2; while i <= 40 do begin s: =s+i; i: =i+2 end; write ('сумма четных чисел=', s); readlnend.

Знаете ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...