Мне , послезавтра контрольная по с ) 1.даны выражения: а={7< 3}, b={4=5}, c={2< 3}. определите истинность составных высказываний: а) a => c^b, б) avcvb  ø(a^b), в) cvb^a. 2. составьте истинные высказывания, применив эквиваленцию к высказываниям «в городе прекрасная погода» и «самолеты будут летать».

1. 7 не меньше 3, 4 не равно 5, 2 больше 3, так что a=0, b=0, c=1 а) c^b=0, a => 0 = 0 б) 0v0v1=1, там какой-то непечатаемый символ, не могу его прочитать в) не помню порядок действий, но если сперва умножение, то 1, иначе 0 2. если я правильно понимаю , то ответ такой: если в городе прекрасная погода, то самолёты будут летать.

рrogram summa;

var s, a, b, c : word;

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s=а+в+с

            write(' сумма равна ',s);

            readln

в принципе все, должно быть правильно

 

совершенное число это число равное сумме своих делителей отличных от самого числа

var i, s,j : integer;

begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.