Найти произведение всех четных целых чисел от а до а+3

@Пашасдесь · Регистрация: 23.01.2014

@Puporev · 25.01.2014, 09:22

Pascal

1 2	if odd(a) then p:=(a+1)(a+3)//если а нечетное else p:=a(a+2);//если четное

@Пашасдесь · 25.01.2014, 09:24 **[ТС]**

Можно полное решение

@Puporev · 25.01.2014, 09:30

Pascal

var a,p:integer;
begin
write('a=');
readln(a);
if odd(a)then p:=(a+1)*(a+3)
else p:=a*(a+2);
write('P=',p);
readln
end.

@Пашасдесь 0 / 0 / 0 Регистрация: 23.01.2014 Сообщений: 4
		1
	Найти произведение всех четных целых чисел от а до а+3 25.01.2014, 09:08. Показов 1618. Ответов 3 Метки нет (Все метки) Найти произведение всех четных целых чисел от а до а+3 0

@Пашасдесь 0 / 0 / 0 Регистрация: 23.01.2014 Сообщений: 4
	25.01.2014, 09:24 [ТС]	3
	Можно полное решение 0

	25.01.2014, 09:30

Решение