Program pr;
uses crt;
Var n, i:integer;
s:real;
Begin
s:=1;
Writeln('Введите n');
readln(n);
For i:=1 to n do
Begin
s:=s*2;
Writeln(s);
end;
readln;
end.
Объяснение:Решение.
Знаком ~ обозначается операция эквивалентности (результат X ~ Y — истина, если значения X и Y совпадают).
Введем обозначения:
(x ∈ P) ≡ P; (x ∈ Q) ≡ Q; (x ∈ A) ≡ A.
Тогда, применив преобразование импликации, получаем:
¬(P ~ Q) ∨ ¬A ⇔ ¬(P ~ Q) ∨ ¬A = 1.
Выражение ¬(P ~ Q) истинно только тогда, когда x ∈ [5; 14) и x ∈ (23; 30] (см. рисунок). В таком случае, для того, чтобы выражение было истинно при любом x, A должно лежать либо в промежутке [5; 14), либо (23; 30]. Следовательно, наибольшая возможная длина промежутка равна 14 − 5 = 9.
ответ: 9.
ответ правельный чесное слово нажми
Program P;
Var
I, N : Integer;
S : Integer;
Begin
S := 1;
Write('Enter N ');
ReadLn(N);
for I:=1 to N do
S := S * 2;
WriteLn(S);
ReadLn;
End.