Практикум по решению задач на ЭВМ. Тарова И.Н - 23 стр.

                       Практикум по решению задач на ЭВМ




4)                                                           Написать
                                                            программу,
которая запрашивает у пользователя время года и выводит соответст-
вующее название времени года. В случае если пользователь укажет недо-
пустимое число, программа должна вывести сообщение: «Ошибка ввода
данных».

     {*Определение времени года по номеру месяца*}
     uses CRT;
     var
       month: integer; { номер месяца }
     begin
        clrscr;
        writeln ('введите номер месяца (от 1 до 12) и нажмите Enter');
        write ('->');
        readln(month);
        case month of
           1,2,12:writeln ('зима');
           3..5:writeln ('весна');
           6..8:writeln ('лето');
           9..11:writeln('осень');
            else writeln ('Число должно быть от 1 до 12');
        end;
        readln;
     end.




     5) Даны 3 числа A, B, C. Найти наименьшее из них.

     {Нахождение наименьшего}
     program min1 (input,output);
     uses CRT;
     var


                                        23