Формулу при законов логики и составить таблицу истинности для исходной и формулы . составить по исходной формуле логические схемы. составить временную диаграмму исходной формулы. y=x1x2x3 v x1x2x3 v x1x3 сверху по середине черта и в x1x3 тоже черта
Uses crt; var a,b,c,x,max,min,sum,pr: integer; begin write('Введите число: '); readln(x); a:= x div 100; b:= x div 10 mod 10; c:= x mod 10; sum:=a+b+c; pr:=a*b*c; if a>b then begin min:=b; max:=a; end else begin max:=b; min:=a; end; if min>c then min:=c; if max<c then max:=c; writeln('Сумма цифр числа: ',sum); writeln('Произведение цифр числа: ',pr); writeln('Максимальная цифра: ',max); writeln('Минимальная цифра: ',min); end.
Uses GraphABC; procedure Draw(x, y, l, u : Real; t : Integer);
procedure Draw2(Var x, y: Real; l, u : Real; t : Integer); begin Draw(x, y, l, u, t); x := x + l*cos(u); y := y - l*sin(u);end; begin if t > 0 then beginl := l/3;Draw2(x, y, l, u, t-1);Draw2(x, y, l, u+pi/3, t-1); Draw2(x, y, l, u-pi/3, t-1);Draw2(x, y, l, u, t-1);end else Line(Round(x), Round(y), Round(x+cos(u)*l), Round(y-sin(u)*l))end; begin SetWindowSize(425,500); SetWindowCaption('Фракталы: Снежинка Коха'); Draw(10, 354, 400, pi/3, 4);Draw(410, 354, 400, pi, 4); Draw(210, 8, 400, -pi/3, 4);end.
var a,b,c,x,max,min,sum,pr: integer;
begin
write('Введите число: ');
readln(x);
a:= x div 100;
b:= x div 10 mod 10;
c:= x mod 10;
sum:=a+b+c;
pr:=a*b*c;
if a>b then begin
min:=b;
max:=a;
end
else begin
max:=b;
min:=a;
end;
if min>c then min:=c;
if max<c then max:=c;
writeln('Сумма цифр числа: ',sum);
writeln('Произведение цифр числа: ',pr);
writeln('Максимальная цифра: ',max);
writeln('Минимальная цифра: ',min);
end.