Решение задачи 19 из главы 13.1
Primary tabs
Решение задачи 19 из главы 13.1
19. Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой"
Решение одним циклом.
program Project19; var a, b, c, f, g: integer; begin b:=1; c:=0; f:=1; writeln('Vvedite zeloe polozhitelnoe chislo:'); readln(a); if (a > 0) then begin while (b <= a) do begin c:=c+1; if (c = (f+1)) then begin writeln(' '); c:=0; f:=f+1; end else begin write(b, ' '); b:=b+1; end; end; end else writeln('Vy vveli otrizatelnoe chislo!'); readln(); end.
- Log in to post comments
- 1060 reads
vedro-compota
Thu, 10/22/2020 - 16:00
Permalink
решение похоже на
решение похоже на работоспособное, но предлагаю убрать распечатку из ветки условного оператора, сделайте так, чтобы очередное значение выводилось в каждом витке цикла (а вот перенос строки уже по условию)
_____________
матфак вгу и остальная классика =)
testok
Thu, 10/22/2020 - 16:17
Permalink
исправлено