0 0
8 0
5 3
5 0
2 3
2 0
0 2
8 2
7 3
7 0
4 3
Первая цифра-кувшин 8л,вторая цифра кувшин 3 л. Набираем кувшин 8 л и переливаем из него жидкость в кувшин 3л.Потом из 3л выливаем жидкость. Повторяем пока не получиться 4л.
===== PascalABC.NET =====
begin
var a := ArrRandom(20, 0, 100);
a.Println.Where(p -> p mod 5 = 0).Max.Println
end.
Попробуйте такое:
uses graphABC;
var
x, y: array [1 .. 100] of integer;
mI, mJ, mK, maxR, R, i, j, k: integer;
begin
randomize;
for i := 1 to 100 do
begin
x[i] := random(600) + 10;
y[i] := random(360) + 10;
circle(x[i], y[i], 2);
end;
maxR := 0;
for i := 1 to 100 do
for j := 2 to 99 do
for k := 3 to 98 do
begin
R := abs((x[i]-x[k])*(y[j]-y[k])-(x[j]-x[k])*(y[i]-y[k])div 2);
if R > maxR then
begin
maxR := R;
if R > mI then mI := i;
if R > mJ then mJ := j;
if R > mK then mK := k;
end;
end;
setpencolor(clred);
line(x[mI], y[mI], x[mJ], y[mJ]);
line(x[mJ], y[mJ], x[mK], y[mK]);
line(x[mK], y[mK], x[mI], y[mI]);
end.
Program Test;
var A, B, C, S, K: byte;
begin
ReadLn(A, B, C);
S := ((A * C) * 2) + ((B * C) * 2);
K := S div 8;
if (k mod 10) > 0 then
begin Inc(K);WriteLn('Потребуется купить ', K, ' банок краски');
end;
if (k mod 10) < 0 then WriteLn('Потребуется купить ', K, ' банок краски');
end.
Австрия - Вена;
Великобритания - Лондон;
Германия - Берлин;
Норвегия - Осло;
Франция - Париж
Германия - Берлин;
Австрия - Вена;
Великобритания - Лондон;
Норвегия - Осло;
Франция - Париж