Вопрос по информатике:
Подсчитать сумму вводимых чисел до первого отрицательного числа (использовать цикл с постусловием).
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 04.07.2016 21:55
- Информатика
- remove_red_eye 8792
- thumb_up 30
Ответы и объяснения 1
program summa;
var a:= 0;
var b:= 0;
begin
writeln('Введите число');
readln(a);
if a>0 then
repeat {повторяй}
a:= a+b;
writeln('Введите еще число');
readln(b);
until (b<0); {до тех пор, пока условие не будет истинным}
writeln('Было обнаружено отрицательное число');
if a>0 then
writeln('Полученная сумма: ',a)
else writeln('Отрицательное число было первым');
readln;
end.
Программа на выходе сообщает:
Введите число
3
Введите еще число
45
Введите еще число
9
Введите еще число
-8
Было обнаружено отрицательное число
Полученная сумма: 57
- 05.07.2016 14:52
- thumb_up 20
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.