xiranda/тест.срб

52 lines
1.5 KiB
Plaintext
Raw Normal View History

2024-04-06 17:10:47 -04:00
тип број је 4 бајт;
тип слово је 1 бајт;
2024-04-03 11:06:19 -04:00
2024-04-06 17:10:47 -04:00
тип логика је (
2024-04-03 11:06:19 -04:00
лаж,
истина)
2024-04-06 17:10:47 -04:00
тип системски_позив је (
системски_позив_читај = 0,
системски_позив_пиши = 1,
системски_позив_отвори = 2,
системски_позив_затвори = 3,
системски_позив_изађи = 60)
2024-04-03 11:06:19 -04:00
2024-04-06 17:10:47 -04:00
тип описивач је (
стандардни_улаз,
стандардни_излаз)
2024-04-03 11:06:19 -04:00
2024-04-06 17:10:47 -04:00
улаз програм је главна
процедура дужинаекста (текст је низ слово) је
2024-04-03 11:06:19 -04:00
дужина је број = 0
2024-04-06 17:10:47 -04:00
док текст (дужина) није 0 онда
2024-04-03 11:06:19 -04:00
дужина ++
2024-04-06 17:10:47 -04:00
назад
2024-04-03 11:06:19 -04:00
процедура штампај (текст) је
2024-04-06 17:10:47 -04:00
системски_код (системски_позив_пиши, класични_излаз, текст, дужинаекста (текст).дужина)
2024-04-03 11:06:19 -04:00
крај
здраво () штампај ("Здраво!")
видимо_се () штампај ("Видимо се!")
глобалнаонстанта = 666
процедура главна је
здраво ()
док а је 1 ... 17 је
ако а % 3 је 0 или а % 5 је 0 онда
штампај ("физ + баз")
иначе ако а % 3 је 0 онда
штампај ("физ")
иначе ако а % 5 је 0 онда
штампај ("баз")
иначе
штампај ("<->")
штампај ("\n")
крај
видимо_се
врати 60
крај