Инф олимпиада doc

жүктеу/скачать 91,93 Kb.

бет	52/66
Дата	08.02.2022
өлшемі	91,93 Kb.
	#123795

1 ... 48 49 50 51 52 53 54 55 ... 66

Байланысты:
1544775476 (1)

Мәліметтерді енгізу форматы
Мәліметтерді шығару форматы

В есебі. Бөлгіштер

Енгізу файлының аты: В.in
Шығару файылының аты: В. Out
Есептің жауабы файылының аты: В. pas
Уақыт шектеу: 2 секунд
Жадыға шектеу: 64 мегабайт

А оң саны В санының бөлгіші аталып жатыр, егер В А санға қалдықсыз бөлінсе. Мысалы, 15 санында 4 бөлгіш бар: 1,3,5,15. Әрбір берілген сандардың үшін, оның бөлгіштердің саны жұп сан немесе тақ сан болады ма сіздерге анықтау қажетті.

Мәліметтерді енгізу форматы
Кіріс файлдың бірінші жолында бір бүтін сан N (15) жазылған. Келесі жолда N бүтін сан Х_і(1<=X_i<=10¹⁸) жазылған. Бір жолдағы сандар аралары пробелмен бөлінген.

Мәліметтерді шығару форматы
Шығыс файлда аралары пробелмен бөлінген N сан жазылу керек: i- ші сан 0 деп жазылады, егер Х, бөлгіші саны жұп сан болады, немесе 1, егер Х, бөлгіші саны тақ сан болады.

B. in	B. out
2 4 5	1 0

uses crt;
var i,j,k,l,m,n:longint;
function prime(n:longint):boolean;
var i:longint;
begin
prime:=true;
for i:=2 to trunc(sqrt(n))do
if(n mod i=0)then begin prime:=false;break;end;
end;
procedure aaa(l:longint);
var i:longint;
begin
k:=2;
for i:=2 to (l div 2) do
if(l mod i=0)then inc(k);
end;
begin
assign(input,'b.in');reset(input);
assign(output,'b.out');rewrite(output);
readln(n);
for i:=1 to n do
begin
read(l);
if(prime(l))then write('0 ')else begin
k:=0;
aaa(l);
if(odd(k))then write('1 ')else write('0 ');
end;
end;
close(input);close(output);
end.

жүктеу/скачать 91,93 Kb.

Достарыңызбен бөлісу:

1 ... 48 49 50 51 52 53 54 55 ... 66