Составить программу которая определяет есть ли во введенной строке заданный символ (,)

Question

Информатика

Тимур

31 марта, 13:22

Составить программу которая определяет есть ли во введенной строке заданный символ (,)

+3

Ответы (1)

Знаете ответ?

Петяха · Answer 1

Var i, pr: Integer; n: String;

Begin

readln (n) ;

pr : = 0;

for i : = 1 to length (n) do

if n[i] = ',' then pr : = 1;

if pr = 1 then write ('Такой символ есть') else write ('Такого символа нету') ;

End.