Program denuski;
var
a,N,c:integer;
begin
c:=1;
Write('Введите номер дня рождения ');
read(N);
for a:=2 to N do
c:=(c*2)+a;
write('Cумма подаренная на ');
write(N);
write(' день рождения ');
writeln(c,'$');
end.
Орфографический словарь в компьютере -это t9
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(10, -10, 10);
a.Println;
var i := a.IndexMax;
Writeln('максимальный a[', i + 1, ']=', a[i]);
i := a.IndexMin;
Writeln('минимальный a[', i + 1, ']=', a[i])
end.
<h2>-2 0 -3 0 3 -2 1 -9 -9 -2</h2><h2>максимальный a[5]=3</h2><h2>минимальный a[8]=-9</h2>
пожалуйста, решение во вложениях :)