Задача 1 Урок 12.1
Primary tabs
1 Вывести на экран все числа от 1 до N с помощью цикла repeat/until.
var a,n:integer; begin a:=1; writeln('vvedite chislo'); readln(n); repeat write(a,' '); a:=a+1; until (a>n); readln(); end. Вывод консоли: vvedite chislo 7 1 2 3 4 5 6 7
- Log in to post comments
- 348 reads