Паскаль в примерах. Иринчеев А.А - 32 стр.

         IF Y=0 THEN Writeln(‘ Число ‘, A,’ кратно B ‘)
               ELSE Writeln(‘ Число ‘, A,’ не кратно B ‘);
         .. .

     Пример 5. Определить, число А кратно ли В и С?.
     Фрагмент программы будет такой:
         . . .
         Write(‘ Введите число А ‘); Readln(A);
         Write(‘ Введите число B ‘); Readln(B);
         Write(‘ Введите число C ‘); Readln(C);
           Y1:= (a mod b);
           Y2:= (a mod c);
                IF (Y1=0) and (Y2=0) THEN Writeln(‘Число ‘, A,’ кратно’, B, ‘ и кратно ‘,C)
                                     ELSE Writeln(‘Число ‘, A,’ не кратно’, B,’ и ‘,C);
         .. .
      Пример 6. Даны два числа A и B. Определить максимальное число.
      PROGRAM PR6;
       VAR
         A,B: REAL;
           BEGIN
            WRITE(‘Введите число А’);
            READLN(A);
            WRITE(‘Введите число B’);
            READLN(B);
  IF A>B THEN WRITELN (‘ Число А максимальное’);
      ELSE WRITELN (‘ Число B максимальное’);
           END.
     Пример 7. Дано действительное число А. Определить - число А четное или нечетное.
     Воспользуемся стандартной функцией ODD, возвращающей значение логического типа
TRUE или FALSE.
      PROGRAM PR7;
        VAR
        X: INTEGER;
        c:boolean;
           BEGIN
           WRITE(‘Введите число А ‘);
            READLN(a);
              c:=odd(x);
               WRITELN(C);
           END.
     Пример 8.
     Определить, попадает ли точка А с координатами Х и Y внутрь кольца, определенного
радиусами R и R2. Центр круга совпадает с началом координат (рис. 2.4).

                          * А (x,y)
                 Y


                  R              X
         R2



                                                                                         32