Задача 20 Урок 13.1
Primary tabs
Задача 20 Урок 13.1
Пользователь передает целые положительные число N и M, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" увеличивалась до M чисел, то уменьшалась до 1. Например, для M=3 и N=19 получим:
var N, M, i, st, sm: integer; flag: boolean; begin writeln('vedite chislo N'); readln(N); writeln('vedite chislo M'); readln(M); st:= 0; sm:= 1; writeln(); for i:= 1 to N do begin write(i,' '); inc(st); if sm = 1 then flag := true else if sm = M then flag := false; if st = sm then begin writeln(); st:= 0; if flag then inc(sm) else dec(sm) end; end; readln(); end.
- Log in to post comments
- 329 reads