Объяснение:
Писать, то что при конъюнкции 0+0=0; 0+1=0; 1+0=0; 1+1=1 Я не буду, ведь есть специальная таблица, я представляю лишь ответы. И они верны!
p.s. У меня знак & не ставится, но действие выполняется.
Порядок действий верный.
Ответ
Uses Crt;
var b, n, k:integer;
begin
ClrScr;
write('Введите n=');
readln(n);
b:=1; k:=0;
while 3*b < n do
begin
k:=k+1;
b:=b*3;
end;
writeln('k=', k, ' 3^k=', b);
readln;
end.
Объяснение:
//PacsalABC.Net
// (c) NaaMan
var
s : integer;
begin
write('Введите число (10-999): ');
readln(s);
writeln('В числе ', s, ' ', s.ToString.Length, ' знака');
write('Число ', s);
if s mod 3 = 0 then
write(' кратно')
else
write(' не кратно');
writeln(' трём')
end.
Либо 10, тогда всегда 29+29=58
Либо 0, поскольку сумму 58 нельзя получить сложением 29 с другим числом