9_Практическая работа "Применение циклов к решению задач"_9 класс_уч. Босовой Л.А.

Практическая работа «Применение циклов» 1 вариант

ФИО ________________________________________________ КЛАСС ____________

1. Написать программу вывода на экран 10 первых элементов арифметической прогрессии подсчитать количество чисел, кратных 3:

100, 98, 96, …

1. Написать программу вывода на экран 10 первых элементов геометрической прогрессии и суммы 10-первых членов:

1, 1/2, 1/4, 1/8, …

1. Посчитать количество четных цифр в шестизначном числе, введенном с клавиатуры.

2. Определить, что выводит на экран данный алгоритм. Заменить в программе цикл «for» на «while»:

var n, i, s: integer;

begin

writeln ('Введите натуральное n');

readln (n);

s := 3;

for i := 1 to n do

begin

s := s * i;

writeln(i:6,s:6);

end;

end.

Практическая работа «Применение циклов» 2 вариант

ФИО ________________________________________________ КЛАСС ____________

1. Написать программу вывода на экран 10 первых элементов арифметической прогрессии и подсчитать количество чисел, кратных 7:

5, 8, 11, 14, …

1. Написать программу вывода на экран 10 первых элементов геометрической прогрессии и суммы 10-первых членов:

1/5, 1/10, 1/20, 1/40, …

1. Посчитать количество цифр больших «5» в шестизначном числе, введенном с клавиатуры.

2. Определить, что выводит на экран данный алгоритм. Заменить в программе цикл «for» на «while»:

var i: integer; // Промежуточная величина

s: integer; // Результат

begin

s := 1;

for i := 0 to 10 do

begin

writeln(i:6,s:6);

s:=s*4;

end;

end.