Помогите, как написать программу через макросы - Помощь студентам

5Настёна · 04.12.2013, 18:07

16. Дана последовательность из n целых чисел. Найти количество элементов этой последовательности, кратных числу K1 и не кратных числу K2.

ZX Spectrum-128 · 04.12.2013, 18:12

На ассемблере, что ли, пишете?

ZX Spectrum-128 · 04.12.2013, 18:31

Код:

Kol=0
If (a\k1=0) and (a\k2<>0) then
  Kol=kol+1
End if

04.12.2013, 18:07	#1
5Настёна Новичок Джуниор Регистрация: 04.12.2013 Сообщений: 3	Помогите, как написать программу через макросы 16. Дана последовательность из n целых чисел. Найти количество элементов этой последовательности, кратных числу K1 и не кратных числу K2.

04.12.2013, 18:31	#3
ZX Spectrum-128 Участник клуба Регистрация: 05.11.2013 Сообщений: 1,601	Код: `Kol=0 If (a\k1=0) and (a\k2<>0) then Kol=kol+1 End if`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помогите пожалуйста написать программу с методом пузырька и массивами,я даже не знаю как ее сделать..	Bojikodab991	Помощь студентам	4	15.11.2013 09:36
Написать программу через метод (C#)	corebitlol	Помощь студентам	0	12.04.2012 13:25
Написать программу через обработчик ошибок	investr	Microsoft Office Word	1	03.02.2012 18:27
как написать через юнит программу	Вовик-вовик	Помощь студентам	2	13.01.2012 08:07
Написать программу через case!!!	glebochek	Паскаль, Turbo Pascal, PascalABC.NET	2	08.12.2011 15:53

04.12.2013, 18:12	#2
ZX Spectrum-128 Участник клуба Регистрация: 05.11.2013 Сообщений: 1,601	На ассемблере, что ли, пишете?