Регистрация
S1mplendnnd
04.10.2021 01:59
Информатика
Есть ответ 👍

Построить логическую схему функции f(a,b) ¬avbv¬(¬bva)

242
424
Посмотреть ответы 2

Ответы на вопрос:

innabigun84
innabigun84
4,6(62 оценок)
Попробуем исходное выражение. логическая схема во вложении.
новичок480
новичок480
4,6(35 оценок)

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

   Begin

   if (N mod 10) > A then A:= N mod 10;

   N:=N div 10;

   End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

   Begin

   if A=B then C:=true;

   if N>0 then

      Begin

      A:=N mod 10;

      N:=N div 10;

      End;

   if A=B then C:=true;

   if N>0 then

      Begin

      B:=N mod 10;

      N:=N div 10;

      End;

   End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.

Популярно: Информатика