Ввeсти строку символов состоящую из латинских букв, цифр и пробелов

@asker9096 · Регистрация: 17.05.2011

Author24 — интернет-сервис помощи студентам

Осуществить проверку правильности введенных символов.

Добавлено через 25 минут
сдeлaйтe пож

@MAZUR777 · 24.05.2011, 09:45

Pascal

program Example777;
uses crt;
var
  str:string;
  l:byte;
  tru:boolean;
begin
  clrscr;
  writeln('латинских букв');
  readln(str);
  l:=length(str);
  tru:=l>0;
  while tru and (l>0) do
    begin
      tru:=str[l] in ['0'..'9','A'..'Z','a'..'z',' '];
      dec(l)
    end;
  if tru then
    writeln('пробелов*')
  else
    Writeln('цифры*');
  readln;
end.

@asker9096 1 / 1 / 0 Регистрация: 17.05.2011 Сообщений: 28
		1
	Ввeсти строку символов состоящую из латинских букв, цифр и пробелов 24.05.2011, 09:27. Показов 3536. Ответов 1 Метки нет (Все метки) Осуществить проверку правильности введенных символов. Добавлено через 25 минут сдeлaйтe пож 0

	24.05.2011, 09:45

Опции темы

Ввeсти строку символов состоящую из латинских букв, цифр и пробелов

Решение