Var n: integer;
<span> s: array[0..3] of string = ('зима','весна','лето','осень');
</span><span>begin
</span><span> write('месяц: '); readln(n);
</span><span> if n in [1..12] then
</span><span> begin
</span><span> n:=n mod 12;
</span><span> writeln(s[n div 3]);
</span><span> end
</span><span> else writeln('не верный ввод');
</span><span>end.
</span>месяц: 12
<span>зима
</span><span>месяц: 15
</span><span>не верный ввод
</span>
3. "Програмуйте в майбутньому часі" - "підготуйте" вашу програму до змін які можуть мати місце у майбутньому. Іншими словами - коли ви захочете додати функціональності до вашого застосунку, то краще б його не переписувати з самого початку а тільки внести мінімальні зміни які стосуються конкретно нової функціональності. Тому принцип повторного використання і є дуже важливим: застосунок "будується" з будівельних блоків якими і є ці повторно використовувані частинки
Я думаю так:
И П С
П ИС
С И П
Возможные варианты очереди.
идентификация
уточняющая, опознающая
распознает, классифицирует, отождествляет
помогает распознать нужную информацию
сопоставление