/
spirzen
/
it-code-examples
Обзор
Документация
Войти
/
spirzen
/
it-code-examples
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
examples/pascal/lab-1140-005/main.pas
19 строк
287 B
Spirzen
Code migration pack
09 июн 2026, 01:41
09 июн 2026, 01:41
cebc284
Код
Авторство
О чём код?
program FizzBuzz; var n, i: integer; begin ReadLn(n); for i := 1 to n do begin if (i mod 15 = 0) then WriteLn('FizzBuzz') else if (i mod 3 = 0) then WriteLn('Fizz') else if (i mod 5 = 0) then WriteLn('Buzz') else WriteLn(i); end; end.