Дано n чисел. определить произведение четных по номеру чисел + блок-схему желательно

CLSINPUT NS = 1FOR i = 2 TO N STEP 2  S = S * iNEXT iPRINT S

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

Объяснение:

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

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

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

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

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

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

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

begin

 var N,B:real;

 write('Введите количество кВт: '); readln(N);

 if N<0 then write('Некорректный ввод: значение должно быть положительным') else

   begin

     case N.Round of

       0..99:B:=N*0.96;

       100..500:B:=N*1.68;

       else B:=N*2.24;

     end;

     append(output,'output.txt');

     write(output,'Использовано энергии '+N+' кВт на сумму '+B+' рублей');

   end;

end.

Примечание:

Программа может выдать ошибку при попытке подключения к файлу output.txt в коренной папке Паскаля. В таком случае нужно создать другой файл, и поместить его в ту же папку, после чего заменить имя 'output.txt' на имя нового файла в процедурах append и write.