Задача 21 Урок 13.1
Primary tabs
Пользователь передает целые положительные число N и M, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" увеличивалась до M чисел, то уменьшалась до 1. Например, для M=3 и N=19 получим:
123456--максимум три числа7891011121314--снова три числа1516171819.....
program U131Z21; var n,m,l,i,k: integer; f:boolean; begin writeln('vvedite polozhitelnoe chislo'); readln(n); writeln('vvedite m'); readln(m); 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 f:=false; if (k=1) then f:=true; end; readln(); end.
- Log in to post comments
- 1194 reads
vedro-compota
Tue, 09/14/2021 - 22:50
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)