Program zadacha;
Var a,b,c: Integer;
Begin
write('Введите А ');
read(a);
Write('Введите Б ');
read(b);
Write('Введите C ');
read(c);
If a>c*c-b Then Write(a+b)
Else Write(b+c);
ReadLn;
End.
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p < 200)
.Max
.Println
end.
Ответ:
1)(2^3+2^2)/2=6
2) г
3) 20
Каждая следующая будет больше предыдущей на 3, на восьмой она станет 20
Для начала переведём эти числа в двоичную систему счисления:
36 = 100100 - A
4 = 100 - B
следовательно:
A +B = 101000
B - A = ....;
A * B = 10010000
A ∧ B= 10010000
A⊕B= 101000