Помогите написать в Delphi.

[Vlad54046]

Добрый день, помогите решить задачку. Школьную программу вспомнил, но написать все равно не могу. Заранее благодарен!

Имеем 5 группы чисел, числа от 0 до 50:
x=1,4,11,25,39;
y=2,5,12,26,40;
z=3,6,13,27,41;
f=7,8,9,10,28,42; h=0,14,15,16,17,18,19,20,21,22,23,24,29,30,31,32,33,34,35,36,37,38,43,44,45,46,47,48,49,50).
изначально x,y,z,f,h=0
При вводе числа нужно определить к какой группе оно принадлежит и обнулить значение присвоенное этой группе, а остальные значения присвоть минус один(-1).

Пример:
При первом вводе числа 14
x=-1; y=-1;z=-1;f=-1; h=0;
при втором вводе числа 15
программа выдает
x=-2; y=-2;z=-2;f=-2; h=0;
при третьем вводе числа 4
программа выдает
x=0; y=-3;z=-3;f=-3;h=-1;

[Toucan]

Тема перемещена из форума «Программирование» в форум «Карантин»
по следующим причинам:

- неинформативный заголовок;
- отсутствуют собственные содержательные попытки решения задач(и).

Исправьте все Ваши ошибки и сообщите об этом в теме Сообщение в карантине исправлено.
Настоятельно рекомендуется ознакомиться с темами Что такое карантин и что нужно делать, чтобы там оказаться и Правила научного форума.