Пример варианта контрольной работы № 3

1. Изобразить на плоскости (X, Y) область, в которой и только в которой истинно указанное выражение

	(X <= 0) and (Sqr(X) + Sqr(Y) <= 4) or (X >= 0) and (Y <= –X + 2) and (Y >= X – 2)

2. Объяснить, в чем заключается синтаксическая ошибка (или ошибки) в приведенной программе. Написать тот вариант программы, который, по Вашему мнению, будет правильным.

		Program My_Error;
		Var X, Y, Сумма: Integer;
		Begin 
			WriteLn( Введите значение X); ReadLn(X);
			WriteLn( Введите значение Y); ReadLn(Y);
			Сумма = X + Y;
			WriteLn(Сумма)
		End.

3. Составить программу идентификации треугольника по сторонам a, b, c. Определяемое свойство: является прямоугольным или не является прямоугольным (удобно использовать сравнение квадрата одной из сторон с суммой квадратов двух других сторон).

4. Решить задачу с использованием оператора выбора: по введенному числу грибов k напечатать фразу “Мы нашли в лесу k грибов” и согласовать при этом окончание слова “гриб”с числом k. (Количество грибов может быть любым целым числом: 1, 3, 34, 127 и т.п. Окончание фразы определяется значением последней цифры.)

5. Точно и четко сформулировать условие задачи, которая решается в данной программе:

	Program Pr;
	Var K, I, D, S: Integer;
	Begin WriteLn(‘Введите значение K: ’); ReadLn(K);
		For I := 100 To 300 Do
		Begin D := 2;
			S := 0;
			While D <= I div 2 + 1 Do
			Begin If I mod D = 0 Then S := S + D;
				D := D + 1
			End;
			If S = K Then WriteLn(I);
		End
	End.

6. Решить задачу с использованием цикла: найти k-е простое число в арифметической прогрессии 11, 21, 31, 41, 51, 61, …

7. Определить, что будет напечатано программой по ходу ее выполнения:

	Program Schet;
	Var M, N: Word; 
	Begin M := 0; N := 0; 
		Repeat M := M + 1;
			N := N + M;
			Write(M:5, N:3)
		Until N mod 7 = 0;
		Writeln;
		M := 0; N := 0;
		While M + N < 20 Do
		Begin M := M + 1; N := N + M; Write(M:5, N:3) End
	End.

8. Решить задачу с использованием подпрограммы: вывести наибольшую из первых цифр трех заданных чисел. Например, если a = 25, b = 730, c = 1995, то надо вывести цифру 7.

9. В данной последовательности a₁, a₂, …, a_n определить максимальное число среди элементов с номерами, кратными числу k. Например, для последовательности –1, 0, 12, -77, 22, –6, 70, 11, 3 и k = 3 получаем ответ 12.

10. Вычислить