Вопрос по информатике:
Написать программу: подсчитать сумму двузначных четных чисел в диапазоне заданном пользователем. Используя оператор REPEAT!!!!!
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 04.08.2015 21:58
- Информатика
- remove_red_eye 2022
- thumb_up 22
Ответы и объяснения 1
Var S,a,b:integer;
Begin
WriteLn('Сумма нечётных двузначных чисел в [a,b]');
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
S:=0;
if a mod 2 = 0 then a:=a+1;
if a < -10 then
Begin
if a < -99 then a:=-99;
Repeat
S:=S+a;
WriteLn(a);
a:=a+2;
Until (a>-11)or(a>b);
a:=11;
End;
if (b>10)and(a<100) then
Repeat
S:=S+a;
WriteLn(a);
a:=a+2;
Until (a>99)or(a>b);
WriteLn('S = ',S)
End.
- 05.08.2015 00:30
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.