<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var im:=a.IndexMax;
Writeln('Номер максимального элемента- ',im+1,', значение ',a[im]);
end.
<u>Пример</u>
n= 13
11 -13 -11 46 24 -10 34 -22 -8 -1 31 -34 -4
Номер максимального элемента- 4, значение 46
Пусть х основание системы
ax^2+x+5=61
ax^2+x=56.
учтем что х целое и не меньше 6.
x^2<=56
x<=7
6<=x<=7
a=0 x=56
x=6 a*36+6=56
a*36=50
нет целого решения
х=7
a*49+7=56 a=1
<span>ответ 7, 56</span>
Ответ:
128
Объяснение:
Знаю решение комбинаторикой:
Чтобы выбрать 1 цифру нам потребуется 4 варианта (п, е, т, я). для выбора второй цифры мы можем использовать только 2 варианта.( если же первая буква согласная, то вторая - либо е либо я. если первая буква гласная, то вторая - либо п либо т)
для третьей буквы и для всех последующих тоже 2 варианта (по той же логике). в итоге нам нужно перемножить все варианты: 4•2•2•2•2•2=128
Передача, хранение и обработка информации—это основные информационные процессы
Var
x, y: real;
begin
Write('Введите х: ');
Readln(x);
if x < 1 then y := 2 * x - 5
else y := x * x * x - 2 * x;
Writeln('y=', y)
end.
