program raf105;
var
white,blue,red,x,y,z: integer;
w,b,r: boolean;
begin
writeln('Ввод:');
readln(white, blue, red, x, y, z);
repeat
w:= false;
b:= false;
r:= false;
if white >= x
then begin
white-= x;
blue+= 1;
end
else w:= true;
if blue >= y
then begin
blue-= y;
red+= 1;
end
else b:= true;
if red >= z
then begin
red-= z;
white+= 1;
end
else r:= true;
until w and b and r;
writeln('Вывод:');
writeln(white,' ', blue,' ', red);
end.
PascalABC 3.4.2
class Program
{
static void Main()
{
for(var x=-2;x<=2;x++){
for(var y=-2;y<=2;y++){
IsPointOnAxis(x, y);
}
}
Console.ReadKey();
}
static void IsPointOnAxis(int x, int y){
Console.WriteLine("Point = {0}; {1}", x, y);
if (x*y != 0){
Console.WriteLine("Point not on axis");
return;
}
if (x == 0){
Console.WriteLine("Point is on axis Ox");
}else if (y == 0){
Console.WriteLine("Point is on axis Oy");
}
}
}