Ответ:rez=((2+d*(N-1))*N)/2
print(int(rez))
Объяснение:
<h2>Код программы:</h2><h3>(пароль: 105)</h3>
program raf105;
const pass = 105;
var enterpass, x:integer;
begin
repeat
write('Введите пароль: ');
readln(enterpass);
if enterpass = pass
then
while 1=1 do
writeln('Молодец')
else x += 1;
until x=5;
end.
<h2>Результаты работы программы:</h2><h3>1.</h3>
Вывод: Введите пароль:
Ввод: 105
Вывод: Молодец Молодец Молодец Молодец Молодец Молодец Молодец Молодец Молодец...
<h3>2.</h3>
Вывод: Введите пароль:
Ввод: 123
Вывод: Введите пароль:
Ввод: 106
Вывод: Введите пароль:
Ввод: 0
Вывод: Введите пароль:
Ввод: 104
Вывод: Введите пароль:
Ввод: 666
Написал, только там можно не задана размерность пароля в 4 цифры, то есть можно вводить пароль любой длинны и не только цифры.
===== PascalABC.NET =====
begin
var n := ReadInteger('Сколько чисел сгенерировать?');
var St := new Stack<integer>(SeqRandom(n, -99, 99));
St.Println;
Println('Max =', St.Max, ' min =', St.Min);
// следующие строки не нужны, это просто проверка,
// что стек после обработки не сломался.
Writeln;
St.Pop.Println;
St.Println;
end.
double a=0;
double N;
Console.WriteLine("Введите N");
N = Convert.ToDouble(Console.ReadLine());
for (int i = 1; i <= N; i++)
a=(Math.Cos(i) / Math.Sin(i)) * (Math.Cos(i) + Math.Cos(i + 1) )/ (Math.Sin(i) + Math.Sin(i + 1));
Console.WriteLine(a);
Console.ReadLine();