Const <span> p = 3.14; </span><span>//число "пи" </span> var <span> N: </span>byte; <span> R, D, L, S: </span>real;
begin {Сообщаем кратко данные задачи: } writeln(' Пусть в окружности:'); writeln(' 1)R - радиус;'); writeln(' 2)D - диаметр;'); writeln(' 3)L - длина;'); writeln(' 4)S - площадь круга.'); writeln; writeln(' Введите номер одной из величин (от 1 до 4):'); write(' N = '); <span> readln(N); </span>//Вводим номер величины. {Здесь используем цикл. Запрашивается ввод до тех пор, пока номер N не будет лежать в диапазоне [1, 4]:} <span> </span>while<span> (N < 1)</span>or(N > 4)<span> do</span>//Условие вхождения в цикл. <span> </span>begin writeln(' Такого номера здесь нет!'); writeln(' Введите другой номер (от 1 до 4):'); write(' N = '); <span> readln(N) </span>//Снова вводим номер. <span> </span>end; writeln; {Сообщаем о том, какую величину мы ввели, а потом запрашиваем ввести её значение:} write(' Это '<span>); </span> <span> </span>case<span> N </span>of <span> 1: </span>begin writeln('радиус окружности. Введите его значение:'); write(' R = '); <span> readln(R) </span> <span> </span>end; <span> 2: </span>begin writeln('диаметр. Введите его значение:'); write(' D = '); <span> readln(D) </span> <span> </span>end; <span> 3: </span>begin writeln('длина окружности. Введите её значение:'); write(' L = '); <span> readln(L) </span> <span> </span>end; <span> 4: </span>begin writeln('площадь круга. Введите её значение:'); write(' S = '); <span> readln(S) </span> <span> </span>end <span> </span>end<span>; </span> writeln(' Тогда для остальных величин будем иметь:'); writeln; <span>{Используя соотношения D = 2*R, L = 2*p*R, S = p*sqr(R), </span> выразим последовательно три величины через четвертую: } <span> </span>case<span> N </span>of 1:<span> begin</span>{Здесь дано R. Находим D, L и S: } writeln(' диметр: D = ', 2 * R); writeln(' длина: L = ', 2 * p * R); writeln(' площадь: S = '<span>, p * sqr(R)) </span> <span> </span>end; <span> 2: </span>begin{Здесь дано D. Находим R, L и S: } writeln(' радиус: R = ', D / 2); writeln(' длина: L = ', p * D); writeln(' площадь: S = ', p * sqr(D / 2)) <span> </span>end; <span> 3: </span>begin{Здесь дано L. Находим R, D и S: } writeln(' радиус: R = ', L / p / 2); writeln(' диаметр: D = ', L / p); writeln(' площадь: S = '<span>, sqr(L) / p / 4 ) </span> <span> </span>end; <span> 4: </span>begin{Здесь дано S. Находим R, D и L: } writeln(' радиус: R = ', sqrt(S / p):7:4); writeln(' диаметр: D = ', 2 * sqrt(S / p):7:4); writeln(' длина: L = ', 2 * sqrt(p * S):7:4) <span> </span>end <span> end </span> end<span>.</span>
Число баллов за решенные задачи должно быть двузначным, быть кратным 8 и заканчиваться на 8. Такое число среди двузначных только 48 Число баллов, снятых за неверно решенные задачи, дожно быть кратным 5 и заканчиваться на 5. Иначе число в рязряде единиц при вычитании баллов из числа полученных за решенные задачи не получится 3. Этим условиям отвечают числа 48 и 35. 13= 6*8 -7*5 Ученик решил 6 задач, неправильно решил 7 задач, не решил 7 задач.