1) файл паскаля приложен. 2) код на c# static void Main(string[] args) { int a, b; a = Convert.ToInt32(Console.ReadLine()); b = Convert.ToInt32(Console.ReadLine()); if (a > 2) { Console.WriteLine(a / 2); Console.WriteLine(b - 1); } } 3) Код на vb dim a as integer = 0 dim b as integer = 0 a = cint(console.readline()) b = cint(console.readline()) if a > 2 then console.writeline( a / 2) console.writeline(b - 1) end if
uses GraphABC;
begin
Line(50,140,200,340);
Line(200,140,50,340);
Line(205,340,205,335);
Line(205,335,210,335);
Line(210,335,210,340);
Line(205,340,210,340);
arc (316,240,100,55,305);
arc (377,340,3,0,360);
Line(400,140,400,340);
Line(400,140,500,140);
Line(400,240,500,240);
Line(400,340,500,340);
arc (500,190,50,450,270);
arc (500,290,50,450,270);
end.