Меню сайта

Организации, закупали компьютеры в фирмах «Вега», «Владос», «Техно» «Сити», -«Санрайз», «Стиль». Определить:

— фирмы, в которых закупила компьютеры каждая организация

— фирмы, в которых купила компьютеры хотя бы одна организация

— фирмы, в которых ни одна организация не купила компьютеры.


Program mn_1-

(далее…)

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

Дан текст на русском языке. Определить, каких букв больше –гласных или согласных.


program mn_10-

const

glasn=[‘а’,’е’,’и’,’о’,’у’,’ы’,’э’,’ю’,’я’]-

soglas=[‘б’,’в’,’г’,’д’,’ж’,’з’,’й’,’л’,’м’,

‘н’,’р’,’к’,’п’,’с’,’т’,’ф’,’х’,’ц’,’ч’,’ш’,’щ’]-

var

st: string-

g,s,i:integer-

begin

write(‘Введите строку ‘)-

readln(st)-

(далее…)

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

Дан текст. Удалить — в нем повторяющиеся символы.


Program mn_11-

var

s:string-

m:set of char-

i:integer-

begin

writeln(‘Введите текст’)-

readln(s)-

i:=1-

repeat

if s[i] in m then

delete(s,i,1)

else

begin

include(m,s[i])-

inc(i)

end

until

i&gt-length(s)-

writeln(‘Результат:’)-

writeln(s)-

readln

end.

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

Дан текст на английском языке, который заканчивается точкой. В тексте удалить все гласные буквы, а согласные заменить на прописные.


Program mn_2-

uses crt-

type let=’a’..’z’-

var gl:set of let-

s:string-

i:byte-

begin

writeln(‘введите текст’)-

readln(s)-

gl:=[‘a’,’e’,’i’,’o’,’u’,’y’]-

i:=1-

repeat

while s[i] in gl do delete(s,i,1)-

(далее…)

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

Дан текст на русском языке. Напечатать в алфавитном порядке все звонкие согласные буквы, которые входят хотя бы в одно слово.


Program mn_3-

uses crt-

type let=’ -а’..’я’-

var sogl:set of let-

text: set of char-

c:char-

s:string-

i:byte-

begin

writeln(‘введите текст, заканчивающийся — точкой’)-

readln(s)-

(далее…)

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

Дан текст на русском языке. Напечатать в алфавитном порядке все глухие согласные буквы, которые не входят хотя бы в одно слово.


Program mn_4-

uses crt-

type let=’ -а’..’я’-

var sogl:set of let-

text: set of char-

c:char-

s:string-

i:byte-

begin

writeln(‘введите текст, заканчивающийся — точкой’)-

readln(s)-

(далее…)

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

Дано натуральное число —n. Напечатать в возрастающем порядке все цифры, которых нет в записи данного числа.


program mn_5-

var m:set of 0..9-

n,o,i:integer-

begin write(‘введите число:’)-

readln(n)-

m:=[0,1,2,3,4,5,6,7,8,9]-

while n&gt-0 do

begin o:=n mod 10-

n:=n div 10-

if (o in m) then m:=m-[o]

end-

writeln(‘цифры, которых нет в числе’)-

(далее…)

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

Дан текст на русском языке. Найти количество гласных букв


Program mn_6-

uses crt-

type — mn= set of char-

const glas= [‘а’,’е’,’и’,’о’,’у’,’ы’,’э’,’ю’,’я’]-

var a:string-

k,i,s:integer-

begin

clrscr-

writeln(‘введите текст’)-

readln(a)-

s:=length(a)-

i:=0-

if a[s]&lt-&gt-‘.’ then a:=a+’.’-

repeat

begin

inc(i)-

if a[i] in glas then

(далее…)

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

Дан текст на русском языке. Найти количество согласных букв в последнем слове.


Program mn_7-

uses crt-

type let=’ -а’..’я’-

var sogl:set of let-

s:string-

I,k:byte-

begin

writeln(‘введите текст, заканчивающийся — точкой’)-

readln(s)-

if s[length(s)]&lt-&gt-‘.’ then s:=s+’.’-

sogl :=[‘п’,’ф’,’х’,’т’,’с’,’к’,’ч’,’ш’,’щ’,’ц’, ‘б’,’в’,’г’,’д’,’ж’,’з’,’л’,’м’,’н’,’р’]-

(далее…)

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

Сформировать и вывести на экран множество из 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- -«д ўЁв ‘)-

(далее…)

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

Страница 1 из 212
Меню раздела
Блок