Uses crt;
var a, b, S, P:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
S:=a*b; P:=2*(a+b);
write('S=',S,' ','P=',P);
end.
p.s.Где мы выводим на экран значения площади,там после второй S запятая,затем два апострофа через пробел(для пробела в итоге),затем запятая,потом вывод периметра идет аналогичным образом,вот! Спрашивайте,если что не понятно!
1. A⋀¬B∨A⋀¬C≡A⋀(¬B∨¬C)≡A⋀¬(B⋀C) -- (3 лог. эл.)
2.(A↔B)⋀(B→C)≡(¬A⋀¬B∨A⋀B)⋀(¬B∨C)≡(¬A⋀¬B⋀¬B)∨(¬A⋀¬B⋀C)∨(A⋀B⋀¬B)∨(A⋀B⋀C)≡(¬A⋀¬B)∨(¬A⋀¬B⋀C)∨(A⋀B⋀¬B)∨(A⋀B⋀C)≡(¬A⋀¬B)∨(A⋀B⋀¬B)∨(A⋀B⋀C)≡(¬A⋀¬B)∨0∨(A⋀B⋀C)≡(¬A⋀¬B)∨(A⋀B⋀C)≡¬(A∨B)∨(A⋀B⋀C) -- (5 лог. эл.)
Схемы в прикрепленных.
Const
N = 30;
var
a: array [1..N] of integer;
i, j, k: integer;
begin
for i := 1 to N do
readln(a[i]);
for i:=1 to N-1 do
if (a[i] mod 13=0) or (a[i+1] mod 13=0) then k:=k+1;
writeln('k=',k)
end.