Вопрос по информатике:
Turbo pascal составить программу проверяющую является ли последовательность из 10 целых чисел вводимых с клавиатуры возрастающей, программу составить с оператором repeat
Пожаловаться
- 05.01.2018 05:28
- Информатика
- remove_red_eye 1105
- thumb_up 14
Ответы и объяснения 1
uses crt; var i : integer; a,b : real; begin ClrScr; i:=0; Repeat i:=i+1; Write ('a',i,'=');readln (a); if a0 then begin Write ('a',i,'=');readln(b); if (b<=a) then begin writeln('не является'); exit; end else a:=b; end; writeln('является'); until a=0; end.
Пожаловаться
- 06.01.2018 20:10
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы