Предмет: Информатика,
автор: Yazol777
Помогите, пожалуйста. Задача, которую нужно решить на Паскале методом until. Ввести число N и M, увеличить по +1 N до M циклом и вывести каждый шаг.
Ответы
Автор ответа:
0
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
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
Автор ответа:
0
var n,m:integer;
begin
writeln('введите n и m');
readln(n,m);
repeat
n:=n+1;
writeln(n);
until n = m;
end.
begin
writeln('введите n и m');
readln(n,m);
repeat
n:=n+1;
writeln(n);
until n = m;
end.
Интересные вопросы
Предмет: История,
автор: Arishka1017
Предмет: Биология,
автор: aanastasia23
Предмет: Қазақ тiлi,
автор: marupov0426
Предмет: Физика,
автор: felixakbulak
Предмет: Алгебра,
автор: Tomikogames