Var A,Max,i:integer; Begin Write('Введите 10 чисел: '); Read(A); Max:=A; For i:= 1 to 9 do Begin Read(A); if A>Max then Max:=A; End; WriteLn('Max = ',Max) End.
Program WordsCounter(output); var str: string; i, count: integer; begin write('Сторка: '); readln(str); i := length(str); if i > 0 then begin count := 1; while i > 0 do begin if str[i] = ' ' then count := count + 1; i := i - 1; end; end else count := 0; writeln('Число слов: ', count); readln; end.
1) F=Av(¬A&B) По закону дистрибутивности раскроем скобки (Av¬A)&(AvB) Av¬A = 1, значит остаётся AvB
2) F =A&(¬AvB) По тому же закону раскрываем скобки (A&¬A)v(A&B) A&¬A = 0, значит остаётся A&B
3. (AvB)&(¬BvA)&(¬CvB) По закону склеивания (AvB)&(¬BvA) = A , получается, что выражение принимает вид A&(¬CvB) Можно раскрыть скобки, получим A&¬C v A&B
4) F =(1v(AvB))v((AC)&1) Скобка (1v(AvB)) = 1, так как 1 v ЧТОУГОДНО = 1 Получаем выражение 1v((AC)&1) = 1, так как 1 v ЧТОУГОДНО = 1 ответ 1
A,Max,i:integer;
Begin
Write('Введите 10 чисел: ');
Read(A);
Max:=A;
For i:= 1 to 9 do
Begin
Read(A);
if A>Max then Max:=A;
End;
WriteLn('Max = ',Max)
End.