Таблица истинности (смотри прикрепленный скрин)
Ответ:
Таблица находится во вложениях
<span>111010
</span><span>10110001
</span><span>0.10001
</span><span>11000.1111
</span><span>100110.001101</span>
Вот пример кода:
program Znanija;
var
cena, kolvokg, dengi, sdacha, nyno :Integer;
begin
read(cena);
read(kolvokg);
read(dengi);
nyno:=cena*kolvokg;
sdacha:=dengi-nyno;
write('Надо = ');
write(nyno);
write('; сдача = ');
write(sdacha);
end.