Выдать все четные числа от 0 до 10000, если х = 0; иначе выдать x^5 - Free Pascal

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

Задается значение х. Выдать, все четные числа от 0 до 10000 если х = 0 иначе выдать x^5. Как это представить в виде кода, вообще понять не могу)

Код к задаче: «Выдать все четные числа от 0 до 10000, если х = 0; иначе выдать x^5 - Free Pascal»

textual
if x=0 then
for i:=2 to 10000 do
if i mod 2=0 then write(i,' ')
else write(x*x*x*x*x);

11   голосов, оценка 4.000 из 5


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