Написать програму в паскале: найти кол-во чисео от 1 до n кратных 15

Const n=30; //вместо 30 пишем нужное число n var m: integer; begin   m: =n div 15;   writeln (m); end.

Var i,a,n: integer; begin a: =0; write('введите число n: '); readln(n); for i: =1 to n   do if i mod 15=0 then a: =a+1; writeln('количество чисел: ',a); readln; end.

Магистрально-модульный принцип построения компьютера в основу архитектуры современных персональных компьютеров положен магистрально-модульный принцип. модульный принцип позволяет потребителю самому комплектовать нужную ему конфигурацию компьютера и производить при необходимости ее модернизацию. модульная организация компьютера опирается на магистральный (шинный) принцип обмена информацией между устройствами.   магистраль (системная шина) включает в себя три многоразрядные шины: шину данных, шину адреса и шину , которые представляют собой многопроводные линии. к магистрали подключаются процессор и оперативная память, а также периферийные устройства ввода, вывода и хранения информации, которые обмениваются информацией на машинном языке (последовательностями нулей и единиц в форме электрических импульсов) .

Программа шифровки: data "ауоыэяюёие" data "бвгджзклмнпрстфхцчшщ" data "ъйь" dim s10 as string, s20 as string, s3 as string dim i as integer dim s as string, t as string cls read s10, s20, s3 randomize timer input "введите фразу: ", s t = "" for i = 1 to len(s)     t = t + mid$(s, i, 1)     t = t + mid$(s10, int(10 * rnd + 1), 1)     t = t + mid$(s20, int(20 * rnd + 1), 1)     t = t + mid$(s3, int(3 * rnd + 1), 1) next i print t end программа дешифровки: dim s as string, t as string, i as integer cls input "введите фразу: ", s t = "" for i = 1 to len(s) step 4     t = t + mid$(s, i, 1) next i print t end