Вследующих высказываниях выделите простые высказывания, обозначив каждое из них буквой; запишите с букв и знаков логических операций каждое составное высказывание: а)на уроке ученики отвечали на вопросы учителя, а также писали самостоятельную работу. б)две прямые на плоскости параллельны или пересекаются. с)неверно, что солнце движется вокруг сатурна.

А) a^b б) avb в) -a где: "^" = и (конъюнкция); "v" = или (дизъюнкция); "-" = отрицание (инверсия).

паскаль.

 

немного не понятно: от 1 до 10   это относится только к нечетным числам или ко всем? ну напишу программу которая просто все числа вычисляет, если сама не сможешь поставить условие ограничения, то сообщи точное условие и напиши мне в личку

 

program jjj;

var a: array [1..10] of integer; i,summa,proizv: integer;

begin

for i: =1 to 10 do begin

    writeln('напишите элемент массива номер ',i); read(a[i]);

                        end;

for i: =1 to 10 do begin

                              if a[i] mod 2=0 then summa: =summa+a[i] else

                                                        proizv: =proizv*a[i];

                          end;

writeln(summa,'   ',proizv); readln;

end.

паскаль.

 

 

program jjj;

var a: array [1..10] of integer; i,summa,proizv: integer;

begin

for i: =1 to 10 do begin

    writeln('напишите элемент массива номер ',i); read(a[i]);

                        end;

for i: =1 to 10 do begin

                              if a[i] mod 2=0 then summa: =summa+a[i] else

                                if (a[i]< =10) and (a[i]> =1) then   proizv: =proizv*a[i];

                          end;

writeln(summa,'   ',proizv); readln;

end.

 

жирным - это то, что я добавил)