Задача 22 Урок 13.1
Primary tabs
Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" росла волнами. Например, для N=49 получим:
123--сначала до двух456789--потом до трёх101112--возвращаемся к одному131415161718192021--тут уже четыре2223242526--снова убывает 2728293031323334353637383940414243444546474849
program U131Z22; var n,m,l,i,k: integer; f:boolean; begin writeln('vvedite polozhitelnoe chislo'); readln(n); writeln('vvedite m'); m:=2; l:=0; k:=1; f:=true; for i:=1 to n do begin write(i,' '); l:=l+1; if (l=k) then begin writeln(); l:=0; if (f) then k:=k+1 else k:=k-1; end; if (k=m) then begin m:=m+1; f:=false; end; if (k=1) then f:=true; end; readln(); end.
- Log in to post comments
- 1305 reads
vedro-compota
Tue, 09/14/2021 - 22:51
Permalink
перепроверить
перепроверить
_____________
матфак вгу и остальная классика =)
slavina036
Wed, 09/15/2021 - 08:42
Permalink
program U131Z22;
vedro-compota
Sun, 09/19/2021 - 12:40
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)