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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
