Var A: array[0..100] of integer;
Program n1;
var k,m,n: integer;
begin
readln(k,m,n);
if (k mod 2<>0) and (m mod 2<>0) and (n mod 2<>0) then write('да') else write('нет');
end.
Var x,y:integer;
begin
readln(x);
y:=(x mod 7)+(x+1) mod 7+(x+2) mod 7+(x+3) mod 7+(x+4) mod 7+(x+5) mod 7+(x+6) mod 7;
writeln(y div 3);
end.
Пример:
19346
7
Кол-во символов 150*40*60=360000
информация на один символ 2^x=32, x=5 бит
всего инф 5*360000=1800000 бит=225000 байт ~ 220 кбайт
И(-2>0;2-4>3) ⇒ <span><span>(-2>0) И (2-4>3) ⇒ ЛОЖЬ И ЛОЖЬ ⇒ ЛОЖЬ
</span>ИЛИ (5-8/2=1;9/3-3>=-1) ⇒ </span><span><span>(5-8/2=1) ИЛИ (9/3-3>=-1) ⇒
ИСТИНА ИЛИ </span>ИСТИНА ⇒ ИСТИНА
НЕ(2<3-4)
⇒ НЕ (ЛОЖЬ) ⇒ ИСТИНА</span>