Написать программу в Pascal. Найти сумму 10 нечетных чисел.

Вопрос от пользователя
Полюня

Написать программу в Pascal. Найти сумму 10 нечетных чисел.

Ответ
Дарья

Program fofgogjoj;

Var a: array [1 … 100] of integer;

i, n, s: integer;

Begin

s:=0;

n:=19;

for i:=1 to n do

begin

a[i]:=i;

if i mod 2=1 then s:=s+a[i];

end;

Writeln (‘Сумма 10 ти нечетных чисел равна: ‘, s);

End.

Предыдущая
Вопрос-ответНа мебельной фабрике двое рабочих за 3 ч совместной работы обработали 150 одинаковых панелей. Первый рабочий за 5 ч работы может обработать 135 таких панелей.
Следующая
Вопрос-ответЛитосфера, гидросфера, атмосфера, биосфера
Помогли? Поставьте оценку, пожалуйста.
Плохо
0
Хорошо
0
Супер
0
Спринт-Олимпик.ру
Мы в ВК, подпишись на нас!

Подпишись на нашу группу в ВКонтакте, чтобы быть в курсе выхода нового материала...

Вступить
×