Даны три числа а, b,c. найти произведение и сумму чисел a, b,c max из трех

Program tcd; var a,b,c: integer; begin readln(a,b,c); writeln(,a,'*',b,'*',c,'=',a*b*c); writeln(,a,'+',b,'+',c,'=',a+b+c); if (a> b) and (a> c) then writeln(a,' -большее'); if (b> a) and (b> c) then writeln(b,' -большее'); if (c> a) and (c> b) then writeln(c,' -большее'); end.

пусть введенный интервал будет

b и c,где b< c

var a,b,c,i: longint;

begin

    read(b,c);

    for i: =b to c do

            if i mod a=0 then write(i);

end.

во - первых рассмотрим простые высказывания:

 

м - монитор неисправен

в - видеокарта неисправна

о - оперативная память неисправна

 

во вторых: запишем на языке логики возможные предположения: (m v b) --> o и m --> b

пусть  f(м,в,о) =  (m v b) --> o и m --> b

составляем таблицу истинности:

м     в     о     m --> b      

0       0     0         1

1       0     1         1

0       0     0         1

1       1     1         0

0       0     0         1

0       1     1         0

1       1     0         0

1       1     1         1

1       0     0         0

1       0     0         0

0       1     1         1

1       1     0         1

0       1     1           0

1       1     1           1

0       0     1           0

1       1     0           1

1       1     0           1

1       0     1           1                

анализ таблицы показывает, что сложное высказывание истинно во всех случаях, когда м – истинно, т.е. вероятнее всего  неисправен именно монитор.