Var
k, c: integer;
begin
k := 1;
for c := 1 to 5 do
if c mod 2 <> 0 then
k := k * c;
writeln(k);
end.
Ответ 15
Импликация ложна только в одном случае, когда первая часть истинна, а вторая наоборот ложна.
<span>(10<x*x*x) - эта часть должна быть истинна
</span><span>(10>(x+1)*(x+1)-x)) - эта часть должна быть ложная
</span>(10<x*x*x) при х = 4 истинна:
10<4*4*4
10<64 - истина
(10>(x+1)*(x+1)-x))
10>(4+1)*(4+1)-4
10>5 * 5 - 4
10 > 21 - ложно
Значит, наименьшее х = 4, при котором высказывание ложно
Проверяем число Н
перебираем числа от 2 до Н, если ни одно не делится, то простое, если делится - составное
1) m:=54; n:=16
m=n? Нет ⇒ m>n? Да ⇒ m:=m-n (54-16=38)
Ответ: m=38
2) Циклический алгоритм
a:=1; b:=0;
b=4? Нет ⇒ b:=b+1 (1); a:=2*a (2);
b=4? Нет ⇒ b:=b+1 (2); a:=2*a (4);
b=4? Нет ⇒ b:=b+1 (3); a:=2*a (8);
b=4? Нет ⇒ b:=b+1 (4); a:=2*a (16);
b=4? Да.
Ответ: а=16; b=4