Решение задачи №19 из главы 13.1
Primary tabs
Решение задачи №19 из главы 13.1
Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=17:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
Вывод консоли Vvedite chislo 17 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
Вывод консоли Vvedite chislo 50 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
var i,n,j,k:integer; begin k:=1; // счетчик для переноса строк i:=1; // начальное значение счетчика j:=0;// начальное значение для внутреннего счетчика writeln('Vvedite chislo'); readln(n); while i<=n do begin j:=j+1; // запускаем внутренний счетчик if(j>=k) then begin writeln(); j:=0; //обнуляем внутренний счетчик k:=k+1; end else begin write(i, ' '); i:=i+1; // изменяем значение счетчика end end; readln(); end.
- Log in to post comments
- 2235 reads
vedro-compota
Sun, 10/25/2020 - 16:11
Permalink
выводим число каждый раз в
_____________
матфак вгу и остальная классика =)
gani84
Fri, 10/30/2020 - 14:01
Permalink
Исправил
vedro-compota
Sun, 11/01/2020 - 16:42
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)