Определяет, является ли число n общим делителем всех меньших его чисел начиная с 2
по нубски правдо очень проверить не забудь)
var
a,n,c:integer;
x,y:real;
begin
readln(a);
readln(n);
readln(c);
if ((a > n) and (n > c)) then begin
x:=(a+n)/2;
y:=(n+c)/2;
end else if((n > a) and (a > c)) then begin
x:=(a+n)/2;
y:=(a+c)/2;
end else if((c > a) and (a > n)) then begin
x:=(a+c)/2;
y:=(a+n)/2;
end else if((c > n) and (n > c)) then begin
x:=(c+n)/2;
y:=(n+c)/2;
end else if((n > c) and (c > a)) then begin
x:=(c+n)/2;
y:=(a+c)/2;
end else if((a > c) and (c > n)) then begin
x:=(c+a)/2;
y:=(n+c)/2;
end else if((c > n) and (n > a)) then begin
x:=(c+n)/2;
y:=(n+a)/2;
end;
write('наибольшее: ',x,' наименьшее: ',y);
end.
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrGen(ReadInteger('n='),t->Sqrt(t)); a.Println(', ')
end.
<u>Пример</u>
n= 13
0, 1, 1.4142135623731, 1.73205080756888, 2, 2.23606797749979, 2.44948974278318, 2.64575131106459, 2.82842712474619, 3, 3.16227766016838, 3.3166247903554, 3.46410161513775
<u>Замечание:</u> массив индексирован от нуля.
План решения везде одинаковый, т.к. эти системы однородные. В приложении решение двух - 10.8 и 11.8.
1) строим таблицу истинности для первого уравнения.
2) строим отображения пар друг в друга
3) выводим из отображений рекуррентные формулы
4) создаем расчетную таблицу количества битовых цепочек по рекуррентным формулам
5) в последнем столбце суммируем все полученные битовые цепочки и получаем ответ.
Если идет дождь, то это осень.
Если у животного есть хобот, то это слон.
Если двузначное число оканчивается на 0,
то это число четное