Строковые и символьные данные даны натуральное число n, символы . выяснить верно ли, что среди символов имеются все буквы, входящие в слово 'оценка'. язык паскаль

192

371

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

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

виталий124

Информатика

4,5(93 оценок)

Var s: string; i: byte; o,c,e,n,k,a: boolean; begin readln(s); for i: =1 to length(s) do begin if (s[i]='о') or (s[i]='о') then o: =true; if (s[i]='ц') or (s[i]='ц') then c: =true; if (s[i]='е') or (s[i]='е') then e: =true; if (s[i]='н') or (s[i]='н') then n: =true; if (s[i]='к') or (s[i]='к') then k: =true; if (s[i]='а') or (s[i]='а') then a: =true; end; if o and c and e and n and k and a then writeln('верно') else writeln('не верно'); end.