Question

Составить программу , которая уменьшает первое число в два раза а второе увеличивает на 1 если первое больше 2

Answer 1

Var
A,d:integer
Begin
Read(a);
Read(d)
Write(a*2);
Begin
If (a>d) then
Write(d+1)
End;
End.

Answer 2

не верно.

Answer 3

Поставь ';' где надо

Answer 4

сама логика не верна.

Answer 5

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

8ad1767dad35d448db2a14e96eedf4f4.pas