Ответ:
program pred;
var
n, i, s: Integer;
begin
Write ('Введите N: ');
ReadLn (n);
s := 0;
i := 1;
while i <= n do begin
if i mod 2 = 0 then
s := s + i;
Inc (i);
end;
WriteLn ('Сумма = ', s);
ReadLn;
end.
- - - - - - - - - - - - - -
program post;
var
n, i, s: Integer;
begin
Write ('Введите N: ');
ReadLn (n);
s := 0;
i := 1;
repeat
if i mod 2 = 0 then
s := s + i;
Inc (i);
until i > n;
WriteLn ('Сумма = ', s);
ReadLn;
end.
Собрать ветки.
взять спички .
разжечь костёр.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,p,b):=ReadReal3('Введите x,p,b через пробел:');
Writeln((x*x*Sin(DegToRad(15))+b**(1/3))/Abs(7*Exp(Sqrt(Exp(1)))-2*p))
end.
в цикле от второго до предпоследнего элемента смотрятся текущий элемент и его соседи. если текущий элемент больше своих соседей, то в память записывается номер текущего элемента и цикл завершается (потавить переменную в true, а в усовии выполнения цикла потставить ещё проверку значения этой перевенной), первый элемент тройки - то число в памяти-1, второй элемент - само число, а третий элемент - число в памяти+1. Если при завершение цикла не было найдено таких троек(та перменная равна false), то значит таких троек нет.
ПСЕВДОКОД
[n] - n-ый элемент массива(перед [ пишется название массива)(нумерация элементов начинается с нуля)
размер массива - N
массив М;
целое число (intenger) А := 0;
логическа единица(boolean) B := false;
целое число i := 1;
пока(i<N-1 И B=false)
начало
ЕСЛИ(M[i]>M[i-1] И M[i]>M[i+1])
начало
A := i;
B := true;
конец
i := i+1;
конец
ЕСЛИ (B = false) то таких троек нет
ИНАЧЕ то A-1 - превый элемент тройки, A - второй, A+1 - третий.