Сколько раз выполняется цикл?
a:= 15; b:= 20
нц пока a < b; a:= a + b кц

var a, b:real;

c: integer;

begin

a:=3; b:=7; c:=0;

while (a / 2) <= (b / 3)

do begin

a:=a+2;

b:=b+3;

inc(c);

end;

writeln(c);

end.

у меня зациклелась, значит бесконечно

Объяснение:

ответ:1 раз

ОбъяснениеА будет равна значению 15 и b значению 20;

цикл будет выполнятся пока a < b. В цикле а становится суммой a и b, тобишь 15 + 20. В итоге цикл выполнится один раз

program p;

vara,b,c,i,j,n : integer;

beginwriteln('введите три числа'); readln(a,b,c);

if a> b then if a> c then writeln(a,c,b) else writeln(c,a,b) else if c> b then writeln(a,b,c) else writeln(b,c,a);  

readln; end. 

(1 + 2):   3   = 1

1 * 2 + 3 - 4 =1

((1+2) : 3 + 4) : 5 =1

1 * 2 - 3 : (4 +5- 6) =1

1 * 2 + (3 + 4   +5) - (6 + 7) =1

((1 + 2): 3)* (4 + 5 + 6): ( 7+8) =1