Задача довольно легкая, но вам нужно в ней зэразобраться...
Формулы- это выражения состоящее из чисел,адресов, яйчеек, разнообразных функций, имен! Которые соеденены знаками такие как:
возведение в степень и выражения в скобках;
умножение и деление;
<span>сложение и вычитание.
Функции- это готовые формулы для всяких вычислений, куда надо просто вставить аргументы
Например: КРЮК(А3;А9)
КРЮК- это название функции
А3;А9- это те самые аргументы
А ОТЛИЧАЮТСЯ ТЕМ ЧТО
ФОРМУЛЫ НУЖНЫ ДЛЯ СОСТАВЛЕНИЯ ФУНКЦИИ
А ФУНКЦИИ УЖЕ КАК БЫ ГОТОВЫЕ ФОРМУЛЫ КУДА ПРОСТО ВСТАВЛЯЕШЬ АРГУМЕНТЫ!
</span>
Я смог решить только 7
program nomer;
var a,n,x:integer;
begin
while n<=0 do
begin
writeln('Введите число');
readln(x);
if (x mod 2)=0 then a:=a+x;
writeln('хотите закончить ввод? да=1, нет=0');
readln(n);
end;
writeln(a);
end.
===== PascalABC.NET =====
function sogl(c: char) :=
not (c.ToUpper in ('АЕЁИОУЫЭЮЯ'));
// проверка функции
begin
var s := 'ТестируемРусскийАлфавит';
foreach var c in s do
Print(sogl(c));
end.
На самом деле все это будет правильно работать лишь если функции давать исключительно русские буквы.
Составляем и заполняем таблицу
a b c c<15?
3 25 1 да
3 25 2 да
3 28 3 да
3 31 4 да
3 34 5 да
3 37 6 да
3 40 7 да
3 43 8 да
3 47 9 да
3 50 10 да
3 53 11 да
3 57 12 да
3 60 13 да
3 63 14 да
3 67 15 нет
конец работы.
Смотрим, что у нас в ячейке b и даем ответ
Ответ: 67