.ru - Россия
.ca - Канада
.de - Германия
.fr - Франция
.uk - Великобритания
.us - США
Вы куда набирать собираетесь в какую-то третью емкость, да???
тогда так:Набираете сначала трехлитровым кувшином 3 литра и выливаете их в восьмилитровый кувшин, потом еще раз набираете и выливавете (у вас в 8-литровом уже 6 литров) и последний раз зачерпываете трехлитровым и выливаете ( соответственно в трехлитровом останется ровно литр). Сливаете полученный литр в наборочную емкость и еще 2 раза по три литра.
1+3+3=7
Program xxx;
var rost,ves,resultat:real;
begin
Writeln('Добро пожаловать в калькулятор веса.');
Write('Введите ваш вес:'); read(ves);
Write('Введите ваш рост:');
read(rost);resultat:=rost-100;
Write('Итог: Ваш вес: ' ,ves);
Writeln('Ваш рост: ' ,rost);
Write('Ваш нормальный вес(+-5):' ,resultat);
<span>end.</span>
6 - минимальное количество ходов, за которое можно добраться до любой клетки.
Программа на паскале:
const
m = 7;
n = 9;
p = n*m;
dx: array [1..8] of integer = (-2, -1, 1, 2, 2, 1, -1, -2);
dy: array [1..8] of integer = (1, 2, 2, 1, -1, -2, -2, -1);
var
a: array [1..m, 1..n] of integer;
x,y: array [1..p] of integer;
i,j,l: integer;
t: boolean;
begin
for i := 1 to p do
begin
x[i] := -1;
y[i] := -1;
end;
for i := 1 to m do
for j := 1 to n do
a[i,j] := -1;
a[1,1] := 0;
x[1] := 1;
y[1] := 1;
l := 1;
for i := 1 to p do
if x[i] <> - 1 then
for j := 1 to 8 do
if (x[i] + dx[j] > 0) and (x[i] + dx[j] <= m) then
if (y[i] + dy[j] > 0) and (y[i] + dy[j] <= n) then
if a[ x[i] + dx[j], y[i] + dy[j] ] = -1 then
begin
l := l + 1;
x[l] := x[i] + dx[j];
y[l] := y[i] + dy[j];
a[ x[l], y[l] ] := a[ x[i], y[i] ] + 1;
end;
for i := 1 to p do if x[i] <> -1 then
writeln(i:2,' - ',x[i],':',y[i],' - ',a[ x[i], y[i] ],' ');
end.
Приведены все профессии человека. Если я правильно поняла задание