составь таблицу истинности. прежде чем ее составить: во первых нужно знать нумерацию, во вторых что такое коньюкция, дизъюнкция, инверсия и тд (и их табл истинности) тогда ты сможешь это все применять в таблице.
объяснение:
у тебя идут колонки: 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
(в инверсии меняешь ед на нули, нули на ед, коньюкция - умножение, дизъюнкция - сложение)
Спасибо
Ответ дал: Гость
program qwerty; uses crt; var a: real; beginclrscr; writeln('введите количество миль'); readln(a); a: = a*1.6; writeln('кол-во киллометров - ',a: 2: 2); readkey; end.
Ответ дал: Гость
type
person=record
fam: string;
imya: string;
day: integer;
end;
var
a: array[1..50] of person;
i,n,z: integer;
begin
write('n='); readln(n);
for i: =1 to n do
begin
write('fam-'); readln(a[i].fam);
write('imya-'); readln(a[i].imya);
write('day-'); readln(a[i].day);
end;
write('z-'); readln(z);
for i: =1 to n do
if a[i].day=z then writeln (a[i].fam, ' ',a[i].imya);
Популярные вопросы