Паскаль. Определить, есть ли в строке цифра 9. Стоит ли она в конце строки?Помогите,...

0 голосов
58 просмотров

Паскаль. Определить, есть ли в строке цифра 9. Стоит ли она в конце строки?
Помогите, пожалуйста.


Информатика (20 баллов) | 58 просмотров
0

Не совсем поняла, что Вы хотите услышать ещё. Вообще задана строка, начало примерно такое должно быть : program A;uses CRT;

0

Извините, не дописалаprogram A;uses crt:var S:String;i,n,k:integer;beginclrscr;readln(s);дальше проблемы с принятием переменной (for i:=1 to N do и тут не совсем понятно, что неправильно.)

0

Сначала надо проверить, есть ли она вообще в строке, если да, то написать "Да", но только 1 раз, даже если их несколько. А затем ещё проверить, есть ли "9" в конце строки.

Дано ответов: 2
0 голосов
Правильный ответ

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.

0

Да, так попроще, большое спасибо!

0

это программа медленнее чем моя о боже -_-

0 голосов

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.

(471 баллов)
0

Спасибо, а обойти оператор boolean никак?

0

Можете сделать без него?

0

boolean не оператор -_-

0

Не расстраивайтесь, я просто не проходила ещё задачи с применением boolean, а так ваш способ компактнее, хоть и более понятен мне всё равно способ "Abac250". Спасибо вам.

0

да ладно) пройдешь, поймешь :D