Какие операторы ввода данных существуют в Pascal?Чем они отличаются?

233

500

Посмотреть ответы 1

Ответы на вопрос:

gumballl1

Информатика

4,6(83 оценок)

Var s: string; i, j, n: integer; c: char; flag: boolean; begin write('введите произвольное число: '); readln(s); flag : = false; n : = length(s); i : = 1; while (i < = n) and (not flag) do begin c : = s[i]; j : = i + 1; while (j < = n) and (not flag) do if s[j] = c then flag : = true else j : = j + 1; if (not flag) then i : = i + 1 end; if flag then writeln('символ "', c, '" встречается больше одного раза') else writeln('все символы уникальны') end. тестовое решение: введите произвольное число: 16379068 символ "6" встречается больше одного раза