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

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.

на паскале:

program myprogram; var n,i,fact: integer; sum: real; beginsum: =0; fact: =1; writeln('введите число n.'); readln(n); for i: =1 to n dobeginfact: =fact*i; sum: =sum+1/fact; end; writeln('сумма 1/1! +1/2! +1/3! ++1/n = ',sum); end.