Program pr_1;
var i,n,s:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+i*i;
writeln('s=',s);<span>
end.</span>
1. 1111₂+1100₂=11011₂ - ответ.
2. Рассмотрим каждое утверждение:
Если истинно утверждение, что "А делится на 55", тогда истины и 2 первых утверждения, потому что 55/5=11 55/11=5 - получается уже 3 истины, значит это ложное высказывание.
Если истинно высказывание: "А меньше 10", тогда <u>"А делится на 11" - ложь</u>. Отсюда истинная пара: "А меньше 10" и "А делится на 5".
Иначе, если "А меньше 10" - ложь, тогда остается пара: "А делится на 5" и " А делится на 11", но эта пара истинной быть не может, потому как если А делится на 11 и 5, то 11 должно делится на 5.
<u>Ответ: A=5</u>
1 - 12 (проверил на калькуляторе)
Uses Drawman;
begin
Task('a2');
ToPoint(3,2);
PenDown;
OnVector(2,2);
OnVector(-4,2);
PenUp;
OnVector(7,-1);
PenDown;
OnVector(-3,-1);
OnVector(2,-3);
PenUp;
ToPoint(0,0);
<span>end.
uses Drawman;
begin
Task('a3');
ToPoint(2,1);
PenDown;
OnVector(4,0);
PenUp;
OnVector(-3,1);
PenDown;
OnVector(0,3);
PenUp;
OnVector(1,-1);
PenDown;
OnVector(5,-1);
PenUp;
ToPoint(0,0);
<span>end.</span></span>