Ввести натуральное число и вывести в строчку все числа от 1 до этого числа

Mrx7777 Mrx7777    1   28.06.2019 05:40    6

Ответы
Великолепныйум Великолепныйум  02.10.2020 13:48
1: 1
2: 1 2
3: 1 3
4: 1 2 4
5: 1 5
6: 1 2 3 6
7: 1 7
8: 1 2 4 8
ПОКАЗАТЬ ОТВЕТЫ
диана128 диана128  02.10.2020 13:48
Var i,n:Integer;

Begin
readln(i);
for n:=1 to i do
   write(n, ' ');

readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика