/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/!Tutorial/06_ForWhileRepeat/ForFor2.pas
20 строк
323 B
Mikhalkovich Stanislav
Примеры правлю на современные
14 окт 2025, 21:21
14 окт 2025, 21:21
e840fcb
Код
Авторство
О чём код?
// Вложенные циклы for const n = 6; begin for var i:=1 to n do begin for var j:=1 to i do Write('*'); Writeln; end; Writeln; for var i:=1 to n do begin for var j:=1 to 3*n do if Odd(i+j) then Write('*') else Write(' '); Writeln; end; end.