Задача 5 урок 14
Primary tabs
Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой".
var e,i,n,el: integer; procedure Elka(el:integer); begin readln(el); for i:=1 to el do begin write(i,' '); e+=1; if e=n then begin writeln(); e:=0; n+=1; end; end; end; begin e:=0; //количество элементов в строке на данный момент i:=1; //чтобы начать цикл n:=1; //нужное количество элементов в строке Elka(el); readln(); end.
- Log in to post comments
- 609 reads