Мне удобнее всего считать такие задачи начиная от начальной точки
А=1
1) в Б можно попасть только из А, значит Б=А=1
2) в Д можно попасть только из А, значит Д=А=1
3) в В можно попасть из А и из Б, значит В=А+Б=1+1=2
4) в Г можно попасть из А из В и из Д, значит Г=А+В+Д=1+2+1=4
дальше по тому же принципу
5) Е=Б=1
6) Ж=Д+Г=1+4=5
7) К=Е+В+Г+Ж=1+2+4+5=12
Ответ: 12
Набрать 8л во 2 кувшин (0+8=8) [0:8]
Перелить из 2 кувшина в 1 кувшин (8-3=5) [3:5]
Вылить 1 кувшин (3-3=0) [0:5]
Перелить из 2 кувшина в 1 кувшин (5-3=2) [3:2]
Вылить 1 кувшин (3-3=0) [0:2]
Перелить из 2 кувшина в 1 кувшин (2-2=0) [2:0]
Набрать 8л во 2 кувшин (0+8=8) [2:8]
Перелить из 2 кувшина в 1 кувшин (8-1=7) [3:7]
Вылить 1 кувшин (3-3=0) [0:7]
Вот у нас и получилось, что во 2 кувшине 7 литров воды
Program qwer;
uses crt;
var a : array[1..1000,1..1000] of integer;
i,j,x,y,min,max : integer;
begin
read(x,y);
min := 100;
max := 0;
for i := 1 to x do
for j:= 1 to y do
begin
a[i,j] := random(101);
if a[i,j] < min then min := a[i,j];
if a[i,j] > max then max := a[i,j];
end;
writeln(min);
write(max);
<span>end.</span>
Пусть ученик неуспевающий, если сумма его отметок меньше 2+2+3+3=10.
var
count_losers, sum, current_sum, mark, i, j, n: integer;
begin
read(n);
count_losers := 0;
for i := 1 to n do
begin
current_sum := 0;
for j := 1 to 4 do
begin
read(mark);
current_sum := current_sum + mark;
end;
if current_sum < 10 then
inc(count_losers);
sum := sum + current_sum;
end;
writeln('Неуспевающих учеников: ', count_losers);
writeln('Средняя сумма четырёх отметок: ', sum / n);
writeln('Средняя отметка: ', sum / 4 / n);
end.
Пример ввода:
4
2 2 2 5
2 2 5 2
2 5 2 2
3 2 2 2
Пример вывода:
Неуспевающих учеников: 1
Средняя сумма четырёх отметок: 10.5
Средняя отметка: 2.625
