Условие задачи : Найти сумму первых n нечетных элементов при помощи цикла for, число элементов должен вводить пользователь (Язык Pascal).
Сложность : легкая .
Решение задачи Pascal :
Для начала продумаем решение. Сначала пользователь введет число — количество элементов, затем мы пустим цикл от 1 до кол-ва элементов, которое ввел пользователь.
В цикле мы будем каждое число проверять на четность. Если оно не четное, то прибавляем его к общей сумме.
Для начала давайте создадим каркас нашей программы со всеми нужными переменными , а именно :
- Переменная под количество чисел .
- Переменная под сумму первых n нечетных элементов .
- И так как у нас цикл for нам нужна переменная под счетчик .
program summa ;
uses crt ;
var
sum , i , count : integer ;
begin
readln ; {чтобы программа не закрывалась .}
end.
Теперь давай спросим у пользователя сколько элементов должно быть .
write('Enter the amount of numbers : '); readln(count);
Переменная count будет служить нам окончанием для цикла . Думаю это понятно .
Дальше можно пускать цикл, но нам нужна сумма только нечетных чисел и здесь нам поможет условие на проверку четности чисел .
И перед началом работы цикла нам нужно присвоить нашей переменной sum ноль чтобы не возникло не каких ошибок .
sum := 0 ;
for i := 1 to count do
begin
if (i mod 2 <> 0) then
sum := sum + i ;
end;
Думаю что здесь не чего сложного нет . Мы просто пускаем цикл и в нем каждое число проверяем на нечетность, т.е. пишем: если(if) остаток от деления(mod) неравен 0 (это будет значить что число не четное) , то мы прибавляем его к нашей сумме .
И теперь нам осталось вывести сумму .
Всё решение задачи Pascal :
program summa ;
uses crt ;
var
sum , i , count : integer ;
begin
clrscr ; {очищаем экран}
write('Enter the amount of numbers : '); readln(count);
sum := 0 ;
for i := 1 to count do
begin
if (i mod 2 <> 0) then
sum := sum + i ;
end;
writeln('Summa = ', sum); {выводи сумму . }
readln ; {чтобы программа не закрывалась .}
end.
