Паскаль. Определить, есть ли в строке цифра 9. Стоит ли она в конце строки? Помогите, пожалуйста.
Не совсем поняла, что Вы хотите услышать ещё. Вообще задана строка, начало примерно такое должно быть : program A;uses CRT;
Извините, не дописалаprogram A;uses crt:var S:String;i,n,k:integer;beginclrscr;readln(s);дальше проблемы с принятием переменной (for i:=1 to N do и тут не совсем понятно, что неправильно.)
Сначала надо проверить, есть ли она вообще в строке, если да, то написать "Да", но только 1 раз, даже если их несколько. А затем ещё проверить, есть ли "9" в конце строки.
Program E02; uses crt; var S: string; i,n,k: integer; begin clrscr; writeln('Введите строчку: '); readln(S); K:=0; for i:=1 to length(S) do if S[i] = '9' then K:=i; if K <> 0 then writeln('Yes 9!') else writeln('No 9!'); if K = length(S) then writeln('Да есть 9 в конце строки!') else writeln('Нет 9 в конце строки!'); end.
Да, так попроще, большое спасибо!
это программа медленнее чем моя о боже -_-
Var s:string; i,k:integer; b:boolean; begin readln(s); b:=false; for i:=1 to length(s) do if s[i]='9' then begin k:=i; b:=true; end; if b=true then writeln('в строке есть 9'); if k=length(s) then writeln('9 в конце строки') else writeln('9 нет в конце строки'); end.
Спасибо, а обойти оператор boolean никак?
Можете сделать без него?
boolean не оператор -_-
Не расстраивайтесь, я просто не проходила ещё задачи с применением boolean, а так ваш способ компактнее, хоть и более понятен мне всё равно способ "Abac250". Спасибо вам.
да ладно) пройдешь, поймешь :D