Ввести натуральное число и вывести в строчку все числа от 1 до этого числа
Ввести натуральное число и вывести в строчку все числа от 1 до этого числа
Гость
Ответ(ы) на вопрос:
Гость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
Гостьvar i,n:Integer;
Begin
readln(i);
for n:=1 to i do
write(n, ' ');
readln;
end.
Не нашли ответ?
Похожие вопросы