Задание:
Напишите программу, которая выводит на экран числа в указанном виде. Пример дляn=6:1 1 2 1 2 3 1 2 3 4 1 2 3 4 5 1 2 3 4 5 6
Решение:
program qq1; var n,i,j: integer; beginwriteln (' введите значение n: '); readln (n); for i: =1 to n do beginfor j: =1 to i do write (j,'); //тут заменил j — i на j и в ковычках добавл пробелwriteln (); end; end.
Знаете другой ответ?