1.
var
a,k,i,c: integer;
begin
c:=0;
write('Введите количество чисел в последовательности: ');
readln(k);
for i := 1 to k do
begin
write('Введите число: ');
readln(a);
if (a mod 2 = 1) and (a mod 10 <> 1) then c:=c+1
end;
if c>0 then writeln('YES')
else writeln('NO')
end.
2.
var
a,k,i,c: integer;
begin
c:=0;
write('Введите количество чисел в последовательности: ');
readln(k);
for i := 1 to k do
begin
write('Введите число: ');
readln(a);
if (a mod 2 = 1) and (a mod 3 = 0) then c:=c+1
end;
writeln(c)
end.
Это текстовой файл. Программа Writer из Open/Libre office.
274,5=2×16²+7×16¹+4×16º+5×16^-1
DD,4=13×16¹+13×16º+4×16^-1
D=13
На доске написано 16 чисел [92, 84, 64, 72, 77, 61, 89, 88, 91, 69, 75, 65, 68, 75, 52, 98] (именно в таком порядке). Дима играе
любовь130679
Можно, конечно, разобрать последовательность ходов вручную, но лично я боюсь ошибиться. Когда перемалываешь много цифр, то как бы, сами знаете, есть риск.
Поэтому хватаюсь за любимую сиську (в смысле язык си), и кодирую этот алгоритм с заданным массивом исходных числе. Жимкаем кнопку F9 (на Dev-C++), и через микросекунду получаем ответ: 1208 очков.
Ну, не знаю уж правильно или нет, но так у меня получилось. Если не так, то чур виноват не я, а сиська.
1017,2 = 1*8^3 +1*8^1+7*8^0 + 2*8 +2*8^(-1)=527,125
111 это в двоичной? если да тогда 111=2^0+2^1+2^2=1+2+4=7
В=11 это запомнить надо