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

папирусы хранили в виде свитков, сворачивая длинную папирусную ленту, склеенную из отдельных листов, в трубку. 

во - первых рассмотрим простые высказывания:

м - монитор неисправен

в - видеокарта неисправна

о - оперативная память неисправна

во вторых: запишем на языке логики возможные предположения: (m v b) --> o и m --> b

пусть  f(м,в,о) =  (m v b) --> o и m --> b

составляем таблицу истинности:

м     в     о     m --> b      

0       0     0         1

1       0     1         1

0       0     0         1

1       1     1         0

0       0     0         1

0       1     1         0

1       1     0         0

1       1     1         1

1       0     0         0

1       0     0         0

0       1     1         1

1       1     0         1

0       1     1           0

1       1     1           1

0       0     1           0

1       1     0           1

1       1     0           1

1       0     1           1                

анализ таблицы показывает, что сложное высказывание истинно во всех случаях, когда м – истинно, т.е. вероятнее всего  неисправен именно монитор.