«Баскетбольный матч» Баскетбольный матч состоит из 4 этапов. Входными данными являются целые числа a и b (0 ≤ a, b ≤ 100), которые указывают количество очков, заработанных командами на каждом этапе. Создайте программу, которая определяет победителя игры на основе результатов игры между двумя командами. В результате игры должен быть получен ответ «1-команда», «2-команда» или «равная игра».

язык: c++

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.

ну вот так это будет выглядеть с ветвлением и возможностью повторять вычисления без повторного запуска программы.

var a,b,c,d,z: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); while (z = 1) dobeginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); end; end. 

программа, выводящая на экран номер четверти координатной плоскости, которой принадлежит точка с координатами х≠0 и у≠0

  program 198;

var x,y: real;

begin;

readln (x; y);

if x> 0 and y> 0 then

writeln (1 chetvert);

end;

if x< 0 and  y> 0 then

writeln (2 chetvert);

end;

if x< 0 and  y< 0 then

writeln (3 chetvert);

end;

if x> 0 and  y< 0 then

writeln (4 chetvert);

end;

end.

3*3: (3*3)=1

(3*3-3): 3=2

3*3-(3+3)=3

(3*3+3): 3=4

(3+3): 3+3=5

(3+3-3)+3=6

(3: 3+3)+3=7

3*3-(3: 3)=8

3*3-(3-3)=9

3*3+3: 3=10