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