Free Pascal (определить кратность 4 натурального числа)

@Larisa777 · Регистрация: 09.12.2010

Помогите решить во Free Pascal задачу, пожалуйста : Дано натуральное число, определить является ли оно четным и кратным 4. Заранее спасибо

@SuPeR XaKer · 09.12.2010, 23:22

Pascal

if (n mod 4=0) then
 writeln('Yes')
else
 writeln('No');

@TAVulator · 09.12.2010, 23:23

Сообщение от Larisa777

является ли оно четным и кратным 4

Pascal

1	if (not odd(N))and(N mod 4 = 0) then writeln('является');

@SuPeR XaKer · 09.12.2010, 23:27

if (not odd(N))and(N mod 4 = 0) then writeln('является');

я думаю здесь одного условия вполне достаточно

@Larisa777 · 09.12.2010, 23:29 **[ТС]**

Спасибо. Только хотелось бы уточнить тип переменной для натурального числа

@SuPeR XaKer · 09.12.2010, 23:30

longint,integer

@Larisa777 0 / 0 / 0 Регистрация: 09.12.2010 Сообщений: 13
		1
	Free Pascal (определить кратность 4 натурального числа) 09.12.2010, 23:19. Показов 2477. Ответов 5 Метки нет (Все метки) Помогите решить во Free Pascal задачу, пожалуйста : Дано натуральное число, определить является ли оно четным и кратным 4. Заранее спасибо 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	09.12.2010, 23:27	4
	if (not odd(N))and(N mod 4 = 0) then writeln('является'); я думаю здесь одного условия вполне достаточно 1

@Larisa777 0 / 0 / 0 Регистрация: 09.12.2010 Сообщений: 13
	09.12.2010, 23:29 [ТС]	5
	Спасибо. Только хотелось бы уточнить тип переменной для натурального числа 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	09.12.2010, 23:30	6
	longint,integer 1