< >

Pascal
Задание : Необходимо суммировать все нечётные целые числа в диапазоне, 0-10.
1 3 5 7 9

Ответы

Ответ дал: restIess
2

var _sum, i : integer;

begin

_sum := 0;

i := 1;

while i < 10 do

begin

_sum := _sum + i;

i := i + 2;

end;

writeln('Сумма нечетных из диапазона (0-10): ', _sum);

end.

Похожие вопросы
Русский язык
1 год назад
Какие слова можно употребить со словам школа? Обоснуйте свой выбор составив словосочетания и употребив их в предложениях.городская,учебная,первая,громкая,средная
Английский язык
1 год назад
Составите к каждому специалный вопрос,общий вопрос,и отрицательную форму
Английский язык
2 года назад
1 2 4 6 задания помогите пожалуйста англ языу
Математика
2 года назад
Решите задачу. Ослица и Мул тащили мешки. В ответ на жалобы ослицы, что ей тяжело, мул ответил: «Если бы я взял у тебя один мешок, у меня их стало бы в 2 раза больше, чем у тебя, а если бы ты взяла у
Математика
8 лет назад
Можно краткую запись ещё, умоляю! Я смотрела в интернете, но там ничего не понятно Задача номер 19
Математика
8 лет назад
Помогите , решить! Пожалуйста!
Химия
9 лет назад
Сколько кг гидрида кальция необходимо для получения 500 л гидрогена Помогите пожалуйста :)
Математика
9 лет назад
4(x-6)=5 помогите пож