For2. Даны два целых числа $$A$$ и $$B$$ ($$A < B$$). Вывести в порядке возрастания все целые числа, расположенные между $$A$$ и $$B$$ (включая сами числа $$A$$ и $$B$$), а также количество $$N$$ этих чисел.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 |
program For2; var A,B, i:Integer; begin Write('Введите A: '); Readln(A); Write('Введите B: '); Readln(B); For i:=0 to B-A do Writeln(A+i); Writeln(B-A+1); end. |
или
|
1 2 3 4 5 6 7 8 9 10 11 12 |
program For2; var A,B, i:Integer; begin Write('Введите A: '); Readln(A); Write('Введите B: '); Readln(B); For i:=A to B do Writeln(i); Writeln(B-A+1); readln; end. |
Другие задачи из раздела For можно посмотреть здесь.
for i:=a to b do
begin
write(i);
end;
write(abs(a-b)+1);
Т.е. так:
for i:=a to b do
write(i);
write(abs(a-b)+1);
Добавил твой вариант, только убрал модуль, по условию $$(A
спасибо большое!!! очень помог сайт в трудную минуту!!!!!!