Построение логических схем и таблиц истинности к ним.
Вот фрагмент программы на Паскале:
Write (' d = ');
ReadLn (d);
L:=3.14*d;
WriteLn( ' L = ', L);
Вы куда набирать собираетесь в какую-то третью емкость, да???
тогда так:Набираете сначала трехлитровым кувшином 3 литра и выливаете их в восьмилитровый кувшин, потом еще раз набираете и выливавете (у вас в 8-литровом уже 6 литров) и последний раз зачерпываете трехлитровым и выливаете ( соответственно в трехлитровом останется ровно литр). Сливаете полученный литр в наборочную емкость и еще 2 раза по три литра.
1+3+3=7
var B:array [1..1000] of real;
c:integer;d:real;
begin
writeln('Vvedite N=');read(a);
d:=0;
for c:=1 to n do
if(c mod 2= 0) then d:=d+b[c];
b[n]:=d;writeln(b[n]);readln;readln;
end;