с бесконечности ссыкло определением проект реализовать игру Угадай число программа угольки нервирует случайное число в диапазоне от 1 до 7 и говорит пользователя Угадай число от 1 до 7 в бесконечном цикле программы считает ответ пользователя и показывает Ему больше или меньше а в случае правильного ответа цикл завершается и выводится среднемесячный поздравления с победой​

письменность была нужна для оформления сделок, фиксации движения товаров, выручки, учета,  финикийцы известны, прежде всего, как предприимчивые торговцы и отважные мореплаватели.

иванов парикмахер, петров плотник, сидоров мельник, гришин почтальон, алексеев маляр.  и 2413      маляр 1

п   142     мельник 2

с   13     плотник 3

г 12      почта 4

а       парикмахер 5

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.

заяц или