Задание

ФИО _____________________________________ КЛАСС_________

Вариант 1

1. Определите результат работы программы:

var i:integer; begin   i:=10;   while i>=1 do   begin   write(i,' ');   i:=i-2;   end; end.

Ответ:________________

2. Определите результат работы программы при а=125:

var a, s:integer; begin read(a); s :=1; while a>0 do begin s := s*a mod 10; a := a div 10; end; write(s); end.

a s 125 1

Ответ:____

Что находит программа? __________________________________________________

3. Напишите программу вывода последовательности чисел:

       25  21  17  13  9  5

4. Напишите программу нахождения суммы чисел:

       (-8)2  (-2)2  42  102  162  222

5. Напишите программу:

Дана последовательность натуральных чисел от 1 до 30.  Найти сумму нечетных чисел, кратных 5.

ФИО _____________________________________ КЛАСС_________

Вариант 2

1. Определите результат работы программы:

var i, s:integer; begin   i:=1; s:=1;   while i<=5 do   begin   s:=s*i;   i:=i+1;   end; writeln(s); end.

i s 1 1

Ответ:________________

2. Определите результат работы программы при x=214:

var x, s:integer; begin read(x); s :=0; while x>0 do begin s := s+x mod 10; х := x div 10; end; write(s); end.

x s 214 0

Ответ:____

Что находит программа? __________________________________________________

3. Напишите программу вывода последовательности чисел:

       0  1  4  9  16  25

4. Напишите программу нахождения суммы чисел:

       1/(-2)  1/(-3)  1/(-4)  1/(-5)  1/(-6) 

5. Напишите программу:

Дана последовательность натуральных чисел от 1 до 30.  Найти сумму квадратов четных чисел.

ФИО _____________________________________ КЛАСС_________

Вариант 3

1. Определите результат работы программы:

var i:integer; begin   i:=1;   while i<=32 do   begin   write(i,' ');   i:=i*2;   end; end.

Ответ:________________

2. Определите результат работы программы при y=1234:

var y, s:integer; begin read(y); s :=0; while y>0 do begin s := s+1; y := y div 10; end; write(s); end.

y s 1234 0

Ответ:____

Что находит программа? __________________________________________________

3. Напишите программу вывода последовательности чисел:

       1  9  25  49  81  121

4. Напишите программу нахождения суммы чисел:

       (-8)2  (-6)2  (-4)2  (-2)2  02  22

5. Напишите программу:

Дана последовательность натуральных чисел от 1 до 60.  Найти сумму чисел, кратных 3 и оканчивающихся на 4.

ФИО _____________________________________ КЛАСС_________

Вариант 4

1. Определите результат работы программы:

var i:integer; begin   i:=8;   while i>=1 do   begin   i:=i-2;   write(i,' ');   end; end.

Ответ:________________

2. Определите результат работы программы при а=204:

var a, s:integer; begin read(a); s :=1; while a>0 do begin a := a div 10; s := s * a mod 10; end; write(s); end.

a s 204 1

Ответ:____

Что находит программа? __________________________________________________

3. Напишите программу вывода последовательности чисел:

       5  9  13  17  21  25

4. Напишите программу нахождения суммы чисел:

       82  22  (-4)2  (-10)2  (-16)2  (-22)2

5. Напишите программу:

Дана последовательность натуральных чисел от 1 до 30.  Найти сумму четных чисел, кратных 3.

ФИО _____________________________________ КЛАСС_________

Вариант 5

1. Определите результат работы программы:

var i, s:integer; begin   i:=2; s:=0;   while i<=7 do   begin   s:=s+i;   i:=i+2;   end; writeln(s); end.

i s 2 0

Ответ:________________

2. Определите результат работы программы при x=159:

var x, s:integer; begin read(x); s :=0; while x>0 do begin s := s+x mod 10; х := x div 10; end; write(s); end.

x s 159 0

Ответ:____

Что находит программа? __________________________________________________

3. Напишите программу вывода последовательности чисел:

       25  16  9  4  1  0

4. Напишите программу нахождения суммы чисел:

       1/2  1/3  1/4  1/5  1/6 

5. Напишите программу:

Дана последовательность натуральных чисел от 1 до 30.  Найти сумму квадратов нечётных чисел.

ФИО _____________________________________ КЛАСС_________

Вариант 6

1. Определите результат работы программы:

var i:integer; begin   i:=1;   while i<=41 do   begin   i:=i*2;   write(i,' ');   end; end.

Ответ:________________

2. Определите результат работы программы при y=8734:

var y, s:integer; begin read(y); s :=0; while y>0 do begin s := s+1; y := y div 10; end; write(s); end.

y s 8734 0

Ответ:____

Что находит программа? __________________________________________________

3. Напишите программу вывода последовательности чисел:

       144  100  64  36  16  4

4. Напишите программу нахождения суммы чисел:

       22  42  62  82  102  122

5. Напишите программу:

Дана последовательность натуральных чисел от 1 до 50.  Найти сумму чисел, кратных 4 и оканчивающихся на 0.

       

Ответы

Вариант	№1	№2
1	10 8 6 4 2	0
2	120	7 Сумма цифр
3	1 2 4 8 16 32	4 Количество цифр
4	6 4 2 0	0
5	12	15 Сумма цифр
6	2 4 8 16 32 64	4 Количество цифр в числе