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

Question

Информатика

Стенюша

5 июня, 18:48

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

+4

Ответы (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.