Ну наверно набираешь 5 литровое и переливаешь его в в 9, потом снова набераешь 5 и наполняешь 9 до черты в 5 останется литр воды вот и все дела=)))))
Program abs;
var x,y,z:integer;
begin
readln(x);{первое число}
readln(y);{второе число}
z:=x+y;{их сумма}
if (z mod 3)=0 then
writeln(''Yes'')
else writeln(''NO'');
end.
У обуви подошва у растения корень с растением можно ухаживать полевать измерять длинну
1)
var
x, n, i: integer;
flag: boolean;
begin
read(n);
flag := false;
for i := 1 to n do
begin
read(x);
if((x mod 10 <> 1) and (x mod 2 <> 0)) then
begin
flag := true;
break;
end;
end;
if(flag) then write('YES')
else write('NO')
end.
2)
var
x, n, i, count: integer;
begin
count := 0;
read(n);
for i := 1 to n do
begin
read(x);
if((x mod 3 = 0) and (x mod 2 <> 0)) then count := count + 1;
end;
write(count);
end.
В VBasic создаете командную кнопку и копируете из файла программу кроме первой и последней строк