Сколько раз выполняется цикл?
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. В итоге цикл выполнится один раз

24576/8=3072 символа

ответ: 3072 символа

var a: array[1..50] of integer; i,f, n: integer;

begin write('n='); readln(n); for i : = 1 to n do begin write('a', i, '='); readln(a[i]); end; f : = 0; writeln; for i : = 1 to n - 1 do if (a[i] mod 2 < > 0) and (a[i + 1] mod 2 = 0) then f : = 1; if f = 0 then begin for i : = 1 to n do if a[i] < 0 then write(a[i]: 4); end else for i : = 1 to n do if a[i] > 0 then write(a[i]: 4); end.