составь таблицу истинности. прежде чем ее составить: во первых нужно знать нумерацию, во вторых что такое коньюкция, дизъюнкция, инверсия и тд (и их табл истинности) тогда ты сможешь это все применять в таблице.
объяснение:
у тебя идут колонки: a,b,c,потом a(инверсия) и b(инверсия).
для 3 колонок 1 и 0:
a b c a(инв) b(инв) (в(инв) диз с) (а(инв)коньюк((в(инв) диз с))
0 0 0
0 0 1
0 1 0
0 1 1
1 0 0
1 0 1
1 1 0
1 1 1
(в инверсии меняешь ед на нули, нули на ед, коньюкция - умножение, дизъюнкция - сложение)
Спасибо
Ответ дал: Гость
varslovo,simval: string; i,k: integer; begink: =0; write('vvedite slovo '); readln(slovo); write('vvedite simval '); readln(simval); for i: =1 to length(slovo) dobeginif slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 thenwriteln('yes vstre4aets9 ',k,' raz, na pozicii ',i)else writeln('no'); writeln; end.вот в одном решении
Ответ дал: Гость
на паскале:
program myprogram; var n,i,fact: integer; sum: real; beginsum: =0; fact: =1; writeln('введите число n.'); readln(n); for i: =1 to n dobeginfact: =fact*i; sum: =sum+1/fact; end; writeln('сумма 1/1! +1/2! +1/3! ++1/n = ',sum); end.
Популярные вопросы