Program Loto; Uses Crt; Const lt = 49; (* количество шаров в лототроне *) shar = 6; (* количество выигрышных шаров*) Var lott,vyb : array [1..shar] of integer; i, j, nom, k : integer; m:set of byte; Begin randomize; m:=[]; for i:=1 to shar do begin repeat nom:=1+random(lt); until not(nom in m); lott[i]:=nom; m:=m+[nom]; end; writeln('Выберите шаров от 1 до 6 ',lt); m:=[]; 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; writeln('Номера шаров в лототроне'); for i:=1 to shar do write(lott[i]:3); writeln; writeln('Выбранные шары'); for i:=1 to shar do write(vyb[i]:3); writeln; write('Совпавшие шары: '); k:=0; for i:=1 to shar do for j:=1 to shar do if lott[i]=vyb[j] then begin k:=k+1; write(lott[i]:3); end; if k=0 then write('- нет') else write(' Их количество=',k) end.
Uses Crt;
Const lt = 49; (* количество шаров в лототроне *)
shar = 6; (* количество выигрышных шаров*)
Var lott,vyb : array [1..shar] of integer;
i, j, nom, k : integer;
m:set of byte;
Begin
randomize;
m:=[];
for i:=1 to shar do
begin
repeat
nom:=1+random(lt);
until not(nom in m);
lott[i]:=nom;
m:=m+[nom];
end;
writeln('Выберите шаров от 1 до 6 ',lt);
m:=[];
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;
writeln('Номера шаров в лототроне');
for i:=1 to shar do write(lott[i]:3);
writeln;
writeln('Выбранные шары');
for i:=1 to shar do
write(vyb[i]:3);
writeln;
write('Совпавшие шары: ');
k:=0;
for i:=1 to shar do
for j:=1 to shar do
if lott[i]=vyb[j] then
begin
k:=k+1;
write(lott[i]:3);
end;
if k=0 then write('- нет')
else write(' Их количество=',k)
end.
#include <stdio.h>
int main(){
int N,O,K; // N - delimoe (vvodim s klaviaturq), O - ostatok ot delenija, K - chastnoe ot delenija
int i=1; //delitelj
int j=0; //kolichestvo delitelej
printf("Vvedite naturaljnoe chislo - ");
scanf("%d", &N);
do{
K=N/i;
O=N%i;
i++;
if(O==0){
//printf("\n%d", K); //vqvodim chisla
j++;
}
}while(K!=0);
printf("\n\nKolichestvo delitelej: %d\n", j);
return 0;
}