Var a,b: real; s: byte;
Begin
Writeln ('введите два числа');
Readln (a,b);
S:=0;
If (a mod 2)=1 then writeln (a,' - нечетное число') else s:=s+1;
If (b mod 2)=1 then writeln (b,' - нечетное число) else s:=s+1;
If s=2 then writeln ('оба числа четные')
End.
N=2^x, в нашем случае 2^x=128, отсюда x=7 глубина кодирования 1 бита.
7*350=2450 бит = 0,30625 Кбайт - количество информации на странице книги.
Введем обозначения: А - первая буква согласная, В - третья буква гласная. Перепишем условие согласно принятым нами обозначениям и учитывая, что оно должно быть истинным:
НЕ А И НЕ В = 1.
Логическое произведение двух переменных истинно только в случае истинности каждой переменной. Таким образом, решение задачи распадается на решение двух равенств:
НЕ А = 1<span>. Это значит, что А = 0, т.е. первая буква имени должна быть гласной. Это имена под номерами 1) и 4).</span>
НЕ В = 1<span>. Это означает, что В = 0, т.е, третья буква имени должна быть согласной. Это условие выполняется только в имени Анна под номером.</span>
<span>Ответ: 4.</span>
Побеждает первый игрок. Например, первым ходом он увеличивает количество камней во второй куче в три раза
(1, 2) -> (1, 6)
Второй игрок может своим ходом получить пары куч (3, 6), (5, 6), (1, 10), (1, 18)
В любом из этих случаев первый игрок может выиграть следующим ходом
(3, 6) -> (3, 18), 3 + 18 >= 20
(5, 6) -> (5, 18), 5 + 18 >= 20
(1, 10) -> (1, 30), 1 + 30 >= 20
(1, 18) -> (1, 54), 1 + 54 >= 20
Const n=8;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do a[i,i]:=n-i+1;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:2);
writeln;
end;
end.
Пример:
8 0 0 0 0 0 0 0
0 7 0 0 0 0 0 0
0 0 6 0 0 0 0 0
0 0 0 5 0 0 0 0
0 0 0 0 4 0 0 0
0 0 0 0 0 3 0 0
0 0 0 0 0 0 2 0
0 0 0 0 0 0 0 1
