Решите и оценку в 5 звёзд​

3.

Var S,i:integer;
Begin
S:=0;
For i:= 1 to 1000 do
    if i mod 2 = 0 then S:=S+i;
WriteLn('S = ',S)
End.

Результат работы программы:
S = 250500

4.

Var
   N,A,i,Max:integer;
Begin
Write('N = ');ReadLn(N);
Write('Введите целые числа(',N,' шт.):');
Read(Max);
i:=1;
For N:= 2 to N do
    Begin
    Read(A);
    if A > Max then
       Begin
       Max:=A;
       i:=N
       End;
    End;
WriteLn('Максимум: ',Max);
WriteLn('Номер максимума: ',i);
End.

Пример работы программы:

N = 7
Введите целые числа(7 шт.):1 2 3 5 9 4 7
Максимум: 9
Номер максимума: 5

5.

Var K,N:integer;
Begin
Write('K = ');ReadLn(K);
Write('N = ');ReadLn(N);
WriteLn('Количество купюр по ',K,' руб.: ',N div K);
WriteLn('Количество купюр по 1 рублю: ',N mod K);
End.

Пример работы программы:

K = 38
N = 3000
Количество купюр по 38 руб.: 78
Количество купюр по 1 рублю: 36

=ЕСЛИ(A1>B1;ЗАМЕНИТЬ(A1;3;3;B1);ЗАМЕНИТЬ(B1;3;3;A1))

Объяснение:

Смотри картинки

Функция ЕСЛИ - позволяет в зависимости от условия выводить два результата. Первый результат возвращается когда, условие истинно, второй результат, когда условие ложно.

ЕСЛИ (условие; первый результат; второй результат)

Здесь сравниваем какое число больше и в зависимости от этого производим замену.

Функция ЗАМЕНИТЬ - позволяет заменить указанное число символов в старой ячейке новыми символами.

ЗАМЕНИТЬ (старая ячейка (в ней заменяем символы, заменяемые символы пропадают); начальная позиция (с какого символа начинаем заменять); число символов (количество заменяемых символов); новые символы (которые вставляем))

Здесь в большем числе убираем 3-5 цифры (т.е. три символа), а вставляем значение меньшего числа.