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