Const
a:array[1..7] of string=('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресенье');
var
b:integer;
begin
read(b);
writeln(a[b]);
<span>end.</span>
Обозначения:
A = (x&A≠0)
B= (x&14≠0)
C= (x&75≠0)
----------------------------
1) A→(¬B→C) =1
¬A+(B+C)=1
A=B+C
2) 14 (10cc)=1110 (2cc)
75= (10cc)=100 1011 (2cc)
3) 100 1011 (+ поразрядное логическое сложение)
000 1110
------------
100 1111 = 79 (10cc) ответ 79
Например,
было 1 2 3 4 5 6 7 8 9 10, стерли первые 5 цифр, то первая начальная будет 6.
Тут же также:
600-506+1 = 95.
95 - число, которое будет первым, тогда в свою очередь 9 - первая цифра этого числа.
1) Для четверки:
program ryazantsev;
var i,n,t,s:integer;
begin
s:=0;
readln(n);
for i:=1 to n do begin
readln(t);
if (t mod 4 <> 0) and (t in [10..99]) then s:=s+t
end;
writeln(s)
end.
2) Для семёрки:
program ryazantsev;
var i,n,t,s:integer;
begin
s:=0;
readln(n);
for i:=1 to n do begin
readln(t);
if (t mod 7 <> 0) and (t in [10..99]) then s:=s+t
end;
writeln(s)
end.