Задача 5 Урок 14
Primary tabs
Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=17:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17ПРИМЕЧАНИЕ: для вывода очередной строки используйте отдельную подпрограмму.
procedure cikl(z:integer; var y,x: integer); begin write(z,' '); if(y=x) then begin writeln(); y:=y+1; x:=1; end else x:=x+1; end; var a,b,c,i:integer; begin write('Vvedite chislo: '); readln(a); b:=1; c:=1; for i:=1 to a do cikl(i,b,c); readln(); end.
- Log in to post comments
- 3310 reads
vedro-compota
Sun, 10/10/2021 - 12:26
Permalink
неправильное форматирование
неправильное форматирование
_____________
матфак вгу и остальная классика =)
Djos
Sun, 10/10/2021 - 14:29
Permalink
var a,b,c,i:integer;
vedro-compota
Wed, 10/13/2021 - 20:07
Permalink
в процедуре должен быть цикл,
в процедуре должен быть цикл, который выводит все строку
_____________
матфак вгу и остальная классика =)
Djos
Wed, 10/13/2021 - 22:48
Permalink
var a,b,c,n:integer;
vedro-compota
Sun, 10/17/2021 - 12:45
Permalink
procedure cikl(y,z1:integer;
-- достаточно 3 переменных на выходе процедуры
_____________
матфак вгу и остальная классика =)
Djos
Sun, 10/17/2021 - 15:57
Permalink
var a,c,n:integer;