Контрольная работа по информатике "Циклы в Паскаль" 8 класс

Фамилия, имя           Тема: ЦИКЛЫ 1. Поставьте служебные слова в операторы циклов            <условие>                  С предусловием:                                                                                                                        <группа операторов> С постусловием:                                             < группа операторов >                                                    <условие > С параметром:                     <пар­р>:=<нач. зн­е>                 <кон. зн­е>              <группа операторов> 2. Выберите правильное окончание предложения Выход из цикла с постусловием выполняется, если условие цикла истинно ложно Выход из цикла с предусловием выполняется, если условие цикла истинно ложно 3.   Какое   значение   примет   переменная   х   в   результате   выполнения   следующих фрагментов программ? x := 1; x := 1; x := 1; repeat   x := x + 3;   x := x + 1 until x> 10; Ответ  x := 1; While x< 100 do   begin      x := x * 2;   end; While x< 10 do   x := x + 3; x := x + 1 Ответ  x := 1; repeat   x := x + 1; until x> 10; While x< 10 do   begin      x := x + 3;     x := x + 1   end; Ответ  x := 1; While x<> 1 do   begin      x := x + 3;     x := x + 1   end; Ответ  Ответ  4.   Остановится   ли   когда­нибудь   цикл,   представленный   в   следующих   фрагментах программы? Ответ  x := 1; While x> 1 do   x := x + 1 Ответ  x := 1; y := 1; While x< 10 do x := 10; While x> 1 do   x := x + 1; Ответ  x := 1; y := 1; repeat x := 1; y := 1; While x< 10 do     Y := y + 1;   x := x + 1; Ответ  x := 10; y := 10; repeat Ответ  № интерации q p Ответ    y := y + 1;   x := x + 1 until x = 10;   y := y + 1;   x := x + 1 until x = 10;   begin      x := x + 1;     y := y + 1   end; Ответ  6. Покажите, что будет напечатано в результате выполнения следующих программ Program pro1; Var   p,   q   : integer; Begin   Writeln(‘q’, ‘p’);   for q := 0 to 5 do     begin       p := 3 * q + 1;       writeln (d, ‘ ’, p);     end;   End. № интерации x y № интерации x y Program pro2; Var   x,   y   : integer; Begin   x := 4;   y := 1;   Writeln(‘x’, ‘y’);   while x >= 0 do     begin       x := x ­ y;       y := y + 1;     end;   writeln (x, ‘ ’, y);   End.   for x := 7 to 9 do     begin       y := x * 3;       writeln (x, ‘ ’, y);     end;   x:= 14;   writeln (x, ‘ ’, y); Задачи: 1. Определите   и   выведите   на   экран   количество   чисел   между   20   и   1000,   которые делятся без остатка одновременно на 4, 5 2. Определите  и  выведите  на  экран  количество   чисел  между  100 и 1000,  которые делятся без остатка одновременно на 13, 15 3. Найти сумму положительных кратных 7 чисел, меньших 100 4. Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13. 5. Составить программу вычисления суммы квадратов чисел от 1 до n.