var input,output:text; a,b,n,k,i,j:longint; mass:array[1..100000] of longint;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(input,n);
For i:= 1 to n do
begin
k:=0;
read(input,mass);
For j:= 1 to mass do
begin
If mass mod j = 0 Then
begin
inc(k);
end;
end;
If k mod 2 = 0 Then write(output,'0 ') Else write(output,'1 ');
end;
close(input);
close(output);
end.
Большие значения/спиральное заполнение массива
Имеется 2 задачи, для подготовки делаю но не могу разобраться
№1
Найти количество делителей у числа если чётное вывести 0 если чётное кол-во 1 если нечётное.
Пример:
2(кол-во чисел)
4 5
Ответ:
1 0
Код:
Проблема в том что число может быть до 10 в 8 степени чего лонгинт никак не обрабатывает как можно это избежать.
№2
0<n<100
Имеется массив размеров n*n записать спиралью начиная с центра против часовой стрелки.
Пример:
5 4 3
6 1 2
7 8 9
Тут я полный профан никогда не умел с матрицами работать.
№1
Найти количество делителей у числа если чётное вывести 0 если чётное кол-во 1 если нечётное.
Пример:
2(кол-во чисел)
4 5
Ответ:
1 0
Код:
Код:
Проблема в том что число может быть до 10 в 8 степени чего лонгинт никак не обрабатывает как можно это избежать.
№2
0<n<100
Имеется массив размеров n*n записать спиралью начиная с центра против часовой стрелки.
Пример:
5 4 3
6 1 2
7 8 9
Тут я полный профан никогда не умел с матрицами работать.