Даны числа от 1 до 10. Надо напечатать 0, если число четное, и 1 -
в противном случае.

Как решают эту задачу:

Учитель информатики в школе:

if x=2 or x=4 or x=6 or x=8 or x=10 then write(0)

else write(1)

Преподаватель в институте:

if not odd(x) then write(0) else write(1)

Студент:

write(x mod 2)

Пользователь IBM PC:

a:array[1..10]:=(1,0,1,0,1,0,1,0,1,0);

write(a[x])