Меню сайта

Задача №8

Сформировать и вывести на экран множество из n символов латинского алфавита . Если вводимая буква уже есть в множестве, выдать соответствующее сообщение.

Program Mn_8-

Const -N=20-

Var

s : set Of Char-

-a : Char-

-i : Integer-

Begin

s := []-

-For i:=1 To N Do

— Begin

— -Writeln (‘ўўҐ¤ЁвҐ 20 ЎгЄў « вЁ­бЄ&reg-Ј&reg- -«д ўЁв ‘)-

— -Readln(a)-

— -If a In s then

— — -Writeln(‘ЎгЄў -‘,a,’ 㦥 Ґбвм’)

— -Else

— — -s:=s+[a]-

-End-

-Writeln(‘ЎгЄўл, ўе&reg-¤пйЁҐ ў ¬­&reg-¦Ґбвў&reg-‘)-

-For a:=’A’ To ‘z’ Do

— -If a In S Then

— — -Write(a:2)-

readln-

End.

Категория: Множества | Дата: 24.12.12

Меню раздела
Блок