РЕБЯТА УМОЛЯЮ ЭТО ПРОВЕРОЧНАЯ НУЖНО Напишите программу, которая в последовательности натуральных чисел определяет сумму всехчисел, кратных 3 и оканчивающихся на 9. Программа получает на вход натуральные числа, количествовведённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончанияввода, не входит в последовательность Количество чисел не превышает 100. Введённые числа непревышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 3 иоканчивающихся на 9.Пример работы программы:Входные данные Выходные данные162956939048​

В последние годы проблематика информационной безопасности пополнилась такими сложными задачами, как:

 – разработка и реализация надёжных систем электронно-цифровой подписи, электронных выборов, закупок и платежей

 – создание и внедрение передовых средств аутентификации (биометрических и других)

 – разработка и внедрение новых методов обеспечения надежности и отказоустойчивости (инновационные технологии кластеризации, виртуализации и др.)

 – защита беспроводных соединений, мобильных устройств и «умной» электроники

 – обеспечение безопасности веб-сервисов и «облачных» технологий

 – защита от вирусных и хакерских атак, направленных на конкретные предприятия

 – разработка новых стойких систем шифрования

 – борьба с современными изощренными методами «черного» пиара, мошенничества и дезинформации в цифровом пространстве.

Решение указанных острых проблем в области информационной безопасности возможно только при условии:

 – внимания к данным вопросам и надлежащих, целенаправленных действий руководителей компаний и представителей общественности и госвласти

 – согласованной деятельности национальных и международных органов, занимающихся стандартизацией ИБ и борьбой с киберпреступностью.

Основные проблемы:

1. Проблемы гуманитарного характера

2. Проблемы экономического и юридического характера

3. Проблемы политического характер

const  A = 1.5; X1 = -2*A; dX = A/5; var x,y :real; beginx := X1;repeatif x<0 then y := Power(3,1/3)*A*(1-sqrt(-power(x,3))) else y := sqrt( sqrt( 16*power(A,4) + 4*sqr(a)*sqr(x) ) - sqr(x) - sqr(A) ); writeln('x:',x:6:2,'y:',y:6:2); x := x + dX;until real.IsNaN(y);end.

Объяснение:

sqr(x) -- квадрат x.

sqrt(x) -- квадратный корень x.

power(x, y) -- x в степени y.

real.IsNaN(x) -- x не является числом (условие).

В задании нет конечного значения x, поэтому поставил условие на NaN, так как начиная с x=3.60, y перестаёт вычисляться (квадратный корень не извлекается).

Алгоритм можно написать по выше данному коду.

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

"Ой! Картинка отличная, но произошла ошибка загрузки попробуйте еще раз."