Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / FUNK-2
.PAS program SPORTLOTO;
USES CRT;
var i,k,n:integer;
mn:set of byte;
a,s:array[1..6] of integer;
BEGIN
CLRSCR;
randomize;
mn:=[];
for i:=1 to 6 do
a[i]:=random(36);
readln(a[i]);{for i:=1 to 6 do writeln(a[i]);}
for i:=1 to 6 do
mn:=mn+[a[i]];
n:=0;
writeln('ўўҐ¤ЁвҐ 6 б«гз ©ле зЁбҐ« ®в 1 ¤® 36');
for k:=1 to 6 do
read(s[k]);
writeln('ᥣ®¤п ў бЇ®ав«®в® ўлЇ « Є®¬ЎЁ жЁп:');
for i:=1 to 6 do
write(a[i]:2);
for k:=1 to 6 do
if s[k] in mn then n:=n+1;
write(n:2);
readln;
END.
USES CRT;
var i,k,n:integer;
mn:set of byte;
a,s:array[1..6] of integer;
BEGIN
CLRSCR;
randomize;
mn:=[];
for i:=1 to 6 do
a[i]:=random(36);
readln(a[i]);{for i:=1 to 6 do writeln(a[i]);}
for i:=1 to 6 do
mn:=mn+[a[i]];
n:=0;
writeln('ўўҐ¤ЁвҐ 6 б«гз ©ле зЁбҐ« ®в 1 ¤® 36');
for k:=1 to 6 do
read(s[k]);
writeln('ᥣ®¤п ў бЇ®ав«®в® ўлЇ « Є®¬ЎЁ жЁп:');
for i:=1 to 6 do
write(a[i]:2);
for k:=1 to 6 do
if s[k] in mn then n:=n+1;
write(n:2);
readln;
END.
Соседние файлы в папке Alex