На паскале написать программу которая в последовательность чисел( натуральных), определяет сумму всех чисел кратных 4 и оканчивающихся на 6. программа получает на вход нат числа, признаком окончания ввода явл число 0. могу решить и сам, только нельзя на компе проверить. так что надеюсь на вас.

Var   a: integer;   s: longint; begin   s : = 0;   a : = -32768;   while a < > 0 do   begin       readln(a);       if a < > 0 then           if a mod 4 = 0 then               if a mod 10 = 6 then s : = s + a   end;   writeln('сумма равна ', s) end.

Научное программирование — высокоориентированный стиль программирования для научных расчетов. От других видов программирования его отличают предельные корректность и стабильность конечного продукта, строгое разделение научной и интерфейсной частей, индивидуальность алгоритмов, а также преобладание эффективности над универсальностью.

Объяснение:

Объяснение:

Доказательство:

1. Есть наличие терминов.

2. Нет эмоционально-окрашенной лексики и не важно отношение автора к тому, что он описывает.

3. Лексика нейтральная.

Var   i,n,s: byte; //здесь мы описываем переменные i- флаг, n - наше число n, s- переменная "деления" label l1; // здесь мы  begin       l1: i: =0;   //установка метки на начало программы и установка флага на первоначальное значение - нет       repeat //проверка n на подлинность       if i=1 then       write('не верный ввод данных! повторите ввод: ')        else       write('введите номер n: '); // условие при котором в первый раз выводится предложение где нас просят ввести n, а если же мы её ввели не правильно выводится ошибка и опять нас просят ввести n так продолжается пока мы не введем правильный n       readln(n);       i: =1;   // установка флага -  да       untill    (n> =1) and (n< 100); // ограничения n       writeln('ваше множество: '); // вывод множества;       for i: =n to 99 do  // из условия следует что числа будут в диапазоне от 1 до 99 т.к они натуральные и двухзначные        begin           s: =i mod 11;   //условие при котором цифры повторяются    т.е. делятся на 11           if (s< > 0) then write(i,';   '); // проверка условия выше;       end;       writeln;       write('повторить программу? (1-да, 0-нет)-'); // предложение о том сделать ли  еще раз программу       read(i);       if (i=1) then goto l1; // опять же установка флага и переход к метке l1; если же условие не выполняется,  то конец программы end.