Вывести на экран только четные числа сгимилированые случайным образом

Задание:

Вывести на экран только четные числа сгимилированые случайным образом

Решение:

vari,j,k: integer; beginrandomize; k=random (999); if k mod 2 <> 0 thenk: =k+1; write (k); end.

Знаете другой ответ?

Отправить свой ответ