Задача

[Dog]

Написать программу, в результате выполнения которой булевская переменная t получает TRUE, если выполняется указанное условие, и FALSE в противном случае.(Оператор IF не использовать).

а) Введенный символ не является буквой латинского алфавита и символом "_" (подчеркивание);

   Var
     t:Boolean; k,s:string;
     m:array['a'..'z'] of char;

 Begin
  k:='_';
  writeln ('vvedute cumBoJIbl');
   ReadLn(S);

  while (s=k) or (s=m) do
                begin
                 writeln ('T=False');
                  readln;
                   end;



    while (s<>k) or (s<>m)  do
                   begin
                    writeln ('T=True');
                     readln;
                       end;

end.

у мя получается вводишь _9999-выводит F, вводишь 999___ - выводит T!
определяет по 1 символу, как сделать норм??

[Alex Cones]

Не, вы все сговорились одно и тоже спрашивать?
http://www.programmersforum.ru/showthread.php?t=63430

[netrino]

Сообщение от Alex Cones

Не, вы все сговорились одно и тоже спрашивать?
http://www.programmersforum.ru/showthread.php?t=63430

так это он ведь и спрашивал))
2Dog

Var
t:Boolean;
s:char;

Begin
writeln ('vvedute cumBoJIbl');
ReadLn(S);

t := (s = '_') or (s in ['a'..'z']);

writeln('T = ', not t);

end.

[Alex Cones]

Var
t:Boolean;
s:char;

Begin
writeln ('vvedute cumBoJIbl');
ReadLn(S);

t := (s = '_') or (s in ['a'..'z']);

writeln('T = ', not t);

end.

Забыли большие символы:

Var
t:Boolean;
s:char;

Begin
writeln ('vvedute cumBoJIbl');
ReadLn(S);

t := (s = '_') or (s in ['a'..'z']) or (s in ['A'..'Z']);

writeln('T = ', not t);

end.