Код полностью
//PascalABC.NET 3.1 сборка 1239
var
a, b, c: integer;
begin
a := 9;
b := 3;
c := 1;
while not (a = b) do
begin
c := c + (a - b);
a := a - 1;
b := b + 1;
{Println(a, b, c);}
end;
writeln('c=',c);
{2}
a := 10;
b := 2;
while not (a <5) do
begin
b := b + 10-a;
a := a - 1;
{Println(a, b, c);}
end;
writeln('b=',b);
end.
Вывод программы
c=13
b=17
1) cpp - программа на С++
2).cdr - <span>векторный файл
</span>3).swf - <span>flash-анимация
</span>4).html - <span>web-страница</span>
1из 5-литрого 2л отлить в 2-литровую
2.остаток 1 литр влить в 6-литровую.
3.из 2-литр-й влить в 5-литр.
4.из 6-литр отлить в 2-литровую 2 ли перелить в 5-литр.
<span> 5. в5-литр-будет 4 л, и 6-литр-м останется 4 л. </span>