Анонимно

Дано число n от 1 до 7. Выведите первые n чисел из последовательности
1, 12, 123, 1234, . . .
пример ввода пример вывода
3 1
12
123
пример ввода пример вывода
2 1
12

Ответ

Анонимно

var n,i, count:integer;

txt:string;

begin

count:=1;

write('Введите число: ');

readln(n);

for i:=1 to n do

begin

txt:=txt+count;

writeln(txt);

count:=count+1;

end;

end.