Вопрос по информатике:
Помогите, пожалуйста. Задача, которую нужно решить на Паскале методом until. Ввести число N и M, увеличить по +1 N до M циклом и вывести каждый шаг.
- 20.10.2017 18:08
- Информатика
- remove_red_eye 14148
- thumb_up 18
Ответы и объяснения 2
Var n,m:integer;
begin
write('N = '); readln(n);
write('M = '); readln(m);
repeat
n:=n+1;
writeln('N = ',n);
until n>=m;
end.
Пример:
N = 5
M = 10
N = 6
N = 7
N = 8
N = 9
N = 10
- 21.10.2017 15:00
- thumb_up 22
Var n,m:integer;
begin
writeln('введите n и m');
readln(n,m);
repeat
n:=n+1;
writeln(n);
until n = m;
end.
- 22.10.2017 07:51
- thumb_up 22
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.