Урок 13.1 задача 20
Primary tabs
Пользователь передает целые положительные число N и M, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" увеличивалась до M чисел, то уменьшалась до 1. Например, для M=3 и N=19 получим:
1
2 3
4 5 6--максимум три числа
7 8
9
10 11
12 13 14--снова три числа
15 16
17
18 19.....
program Project1; var m,n,i,j,n_poz:integer; cout:boolean; begin j:=0; i:=0; n_poz:=1; cout:=true; write('Vvedite N: '); readln(n); write('Vvedite M: '); readln(m); for j:=1 to n do begin i:=i+1; write(j,' '); if(i=n_poz)then begin writeln(); i:=0; if(cout)then n_poz:=n_poz+1 else n_poz:=n_poz-1; if(n_poz=m)then cout:=false else if(n_poz=1)then cout:=true; end; end; readln(); end.
- Log in to post comments
- 650 reads
vedro-compota
Sun, 11/21/2021 - 13:50
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)