Показать сообщение отдельно
Старый 18.08.2008, 17:07   #10 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

Код:
repeat
      write('vvedit datu narodjenia(d m g) ');
      read(d);
      read(m);
      read(g);
      f:=true;
      if d>31 then
                begin
                  writeln('takogo dnia ne isnye, povtorit vvod');
                  f:=false;
                end
              else if m>12 then
                begin
                  writeln('takogo misiacia ne isnye, povtorit vvod');
                  f:=false;
                end
              else if g>1992 then
                  begin
                    writeln('pracivniku menshe 16 rokiv, povtorit vvod');
                    f:=false;
                  end;
  until f=true;
Попробуйте так, в принципе, это сложное условие, не проверял, но должно работать.
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070