Информатика Laboratornaya_rabota_4_tsikly

11

WriteLn ('Сумма равна: ',S)

Из какого количества операторов состоит тело цикла в данном фрагменте программы? Как называется этот цикл?

34. . . .ReadLn (B); m:=1;

While m*B<=A do m:=m+1;

WriteLn ('Результат... ',m:3,'*',B:3:2,' > ',A:6:2)

Из какого количества операторов состоит тело цикла в данном фрагменте программы? Как называется этот цикл?

35. . . .S:=0; N:=1;

Repeat

S:=S+1/N; N:=N+1 until N>50;

WriteLn ('Результат суммирования... ',S); . . .

Из какого количества операторов состоит тело цикла в данном фрагменте программы? Как называется этот цикл?

36. . . . While Eps1>1.0 do

begin Eps:=Eps/2; Eps1:=Eps+1 end;. . .

Каково условие выхода из цикла в данном фрагменте программы?

37. . . . Repeat

S:=S+1/N; N:=N+1 until N>50; . . .

Каково условие повторения тела цикла в данном фрагменте программы?

38. . . .While j<=x do

begin i:=i+2; j:=j+i end;

Write ('Результат: ',(i-1) DIV 2)

End.

Какому оператору будет передано управление в данном фрагменте программы, если условие j<=x станет ложным

39.Какое число называется полиндромическим?

40.For i:=1 to 50 do S:=S+1/i; Сколько раз выполниться тело цикла в данном фрагменте программы?

41.Какой цикл повториться большее количество раз: внешний или внутренний?

42.Перечислите правила организации вложенных циклов.