Задача 22 Урок 13.1
Primary tabs
Пользователь передает целые положительные число N
и M
, выведете на экран последовательность от 1
до N
, так чтобы ширина "ёлочки" увеличивалась до M
чисел, то уменьшалась до 1
. Например, для M=3
и N=19
получим:
123456--максимум три числа7891011121314--снова три числа1516171819.....
program u13_1_z22; var n,i,m,j,k : integer; max : boolean; begin writeln('vvedite chislo n'); readln(n); writeln('vvedite chislo m');// ограничитель readln(m); k:=1; // длинна строки j:=0; // cчётчик max:= true; for i:=1 to n do begin write(i,' '); j:=j+1; if (j = k) then begin writeln(); if (j = m) then max:=false; if (max) then k:=k + 1 else k:=k - 1; if (k = 1) then max:=true; j:=0; end; end; readln(); end.
- Log in to post comments
- 40 reads
vedro-compota
Tue, 11/26/2024 - 00:24
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)