1. Четными называются числа, которые делятся на 2 без остатка.
2. Число 16 при делении 2 дает в остатке 0
3. Число 16 делится на 2 без остатка
4. Число 16 является четным числом.
Program Loto<span>;
</span>Uses Crt<span>;
</span><span>Const lt = 49; <span>(* количество шаров в лототроне *)
</span></span><span>shar = 6; <span>(* количество выигрышных шаров*)
</span></span><span>Var lott,vyb : array [1..shar] of integer<span>;
</span></span><span>i, j, nom, k : integer<span>;
</span></span><span>m:set of byte<span>;
</span></span><span>Begin
</span><span>randomize<span>;
</span></span><span>m:=[]<span>;
</span></span><span>for i:=1 to shar <span>do
begin
repeat
</span></span><span>nom:=1+random(lt);
</span>until not(nom in m)<span>;
</span><span>lott[i]:=nom<span>;
</span></span><span>m:=m+[nom]<span>;
</span></span><span>end<span>;
</span></span><span>writeln('Выберите шаров от 1 до 6 ',lt)<span>;
</span></span><span>m:=[]<span>;
</span></span><span>begin
repeat
write('nom',i,'=');
readln(nom);
until (nom in [1..lt])and not(nom in m);
vyb[i]:=nom;
m:=m+[nom];
end;
clrscr<span>;
</span></span><span>writeln('Номера шаров в лототроне')<span>;
</span></span><span>for i:=1 to shar do
write(lott[i]:3);
writeln<span>;
</span></span><span>writeln('Выбранные шары');
for i:=1 to shar do
write(vyb[i]:3)<span>;
</span></span><span>writeln;
write('Совпавшие шары: ');
k:=0<span>;
</span></span><span>for i:=1 to shar do
for j:=1 to shar <span>do
</span></span><span>if lott[i]=vyb[j] then
<span>begin
</span></span><span>k:=k+1<span>;
</span></span><span>write(lott[i]:3)<span>;
</span></span><span>end<span>;
</span></span><span>if k=0 then write('- нет'<span>)
</span></span><span>else write(' Их количество=',k<span>)
</span></span><span>end<span>.</span></span>
Правой кнопкой на Мой компьютер => Свойства => Оборудование => Диспетчер устройств =>
<span>=> Дисковые устройства => выбираешь диск который там есть двойным щелчком, и жмешь вкладки. Напр. сведения и выбираешь то что тебе надо. Если не то, попробуй задать вопрос по другому. </span>
Pascal
const
n = 15;
type
mas = array [1..n] of integer;
var
m : mas;
i : integer;
procedure inic (var a : mas);
var
i : integer;
begin
for i := 1 to n do
a[i] := 0;
end;
procedure num (var a : mas);
var
i : integer;
begin
for i := 1 to n do
a[i] := i;
end;
procedure w (var a : mas);
var
i : integer;
begin
for i := 1 to n do writeln (m[i]);
readln ();<span>
end;</span>
begin
inic (m);
num(m);
w(m);
end.