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

WRITE(‘ Введите символ ‘);
READLN(C);
 WHILE C <> ‘/’DO
  IF (‘a’<=C) and (C<=‘z’) THEN
    BEGIN
    WRITELN(‘Есть ‘);
     GOTO 1;
   END
                         ELSE
 BEGIN
  WRITE(‘ Введите символ ‘);
  READLN(C);
 END;
WRITELN(‘ Нет ‘);
 1: END.
    Пример 37. Составить программу, учитывающую число посещений врачей (хирург, оку-
лист, лор.) в поликлинике за день. В конце выдать итоговые данные.

PROGRAM PR37;
 VAR
 A,B,C,K,L,M:INTEGER;
 D:CHAR;
  BEGIN
  K:=0;
   L:=0;
   M:=0;
WRITELN('Введите число, месяц, год ');
READLN(A,B,C);
 WHILE D<> '/' DO
 BEGIN
  WRITELN(' Какой врач принимает:');
  WRITELN(' врач лор. - L:');
  WRITELN(' врач окулист - O');
  WRITELN(' врач хирург - X ');
  WRITELN(' прием закончен - / ');
  READLN(D);
   IF D ='L' THEN K:=K+1;
    IF D ='O' THEN L:=L+1;
     IF D ='X' THEN M:=M+1;
 END;
WRITELN(a:2,'.',b:2,'.',c:4);
WRITELN('посетили врачей: ');
WRITELN('лор. - ', K:3);
WRITELN('окулиста - ', L:3);
WRITELN('хирурга - ', M:3);
  END.

       Пример 38. Дана строка символов. Определить число сочетаний группы букв АВС и
АВА.

PROGRAM PR3338;
VAR

                                                                                  56