Дано: A∧D¯¯¯.
Заполни таблицу истинности.

A
D
¯¯¯¯¯¯¯¯¯¯
A∧D¯¯¯
0
0
0
1
1
0
1
1

программа на паскале:

program xxx;       var a, b: real; begin  writeln('введите количество миль');   readln(a);   b: = a*1.6;   writeln('кол-во киллометров - ',b)end.

1)tut kazhdii simvol zanimaet 1 bait(tak imeem bukvi alfavita( soobshenie s uchetom probela zanimaet 10 bait.

2)tut kazhdii simvol zanimaet 1 bait(tak ispol'zovani znaki + i - pmimo 0 i 1);

  soobshenie zanimaet 11 bait.

3)analogichno 15 bait.

f0=(15*16в1)+(0*16в0)=240 , делим столбиком число 240 на 2 (делим и делим) и записываем остатки с конца и получаем число 11110000

т.е.  240/20=120    ост  0

120/2=60    ост  0

60/2=30   ост  0

30/2=15  ост  0

15/2=7   ост  1

7/2=3   ост  1

3/2=1   ост  1

записываем в обратном поряде    11110000

1d4=(1*16в2)+(13*16в1)+(4*16в0)=256+208+4=468  делим столбиком число 468 на 2         111010100

попробуйте так (turbo pascal):

program 1;

var s: string;

c: integer;

begin

write('vvedite nazvaniye zhivotnogo');

read(s);

writeln('vvedite kolichestvo syedennyh gribov');

readln(c);

writeln(s, ' ', 'syest', ' ', c, ' ', 'gribov');

end.