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

Формулировка задачи:

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

Код к задаче: «Найти произведение всех четных целых чисел от а до а+3 - Turbo Pascal»

textual
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.

7   голосов, оценка 3.571 из 5


СОХРАНИТЬ ССЫЛКУ