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

1)котят 7

2)рыжих котят 5

3)зелоноглазых котят 3

4)котят рыжих и зеленоглазых 3

5)котят рыжих или зеленоглазых 3

6)рыжих и не зеленоглазых котят 3

7)не рыжих и не зеленоглазых 1

program e7;

var x: integer;

begin

writeln('vvedite znachenie gradusnoi meri ugla');

readln(x);

if a=180 then writeln('razvernutii') else writeln('ne razvernutii');

readln;

end.

если вы работаете в школе на программе freepascal, то перед "end" можно "readln" не писать. если же вы работаете на программе turbopascal, "readln" перед "end" обязательно нужно писать.