Как записать эту формулу в эксель: y1=ln(x^2-10x).

program z1;

var a,m:integer;

begin

m:=30000;

repeat

read(a);

if (a <> 0) and (a mod 2 = 0) and (a mod 10 <> 2) and (m > a) then m:=a

until a = 0;

writeln(m)

end.

Объяснение:

m равно максимально возможному чётному числу (согласно условию)

Цикл с пост условием:

ввод числа

проверка числа (верно, когда верны все условия):

    не 0 (a <> 0) - не является условием окончания последовательности

    число чётное (a mod 2 = 0)

    число не оканчивается на 2 (a mod 10 <> 2)

    число меньше m (m > a)

если проверка пройдена, то переменной m присваивается значение числа

Проверка условия выхода из цикла (a = 0)

Вывод m

#include "math.h"#include "iostream"
using namespace std;
int main(){int a, n, max, min;int max_i, max_k, min_i, min_k;//ввод размера массиваcin>>a;cin>>n;
//объявление массиваint** a = new int* [a]; for(int i = 0; i < n; i++) { a[i] = new int [a]; }
//ввод первого массива for(int i = 0; i < a; i++) { for(int k = 0; k < n; k++) { cin>>a[i][k]; } } //Инициализация max, min; max=a[0][0]; min=a[0][0]; //поиск максимума for(int i = 0; i < a; i++) { for(int k = 0; k < n; k++) { if(max<a[i][k]) { max=a[i][k]; max_i=i; max_k=k; } } } //поиск минимума for(int i = 0; i < a; i++) { for(int k = 0; k < n; k++) { if(min>a[i][k]) { min=a[i][k]; min_i=i; min_k=k; } } }
//Max and Min меняются местамиswap(a[max_i][max_k],a[min_i][min_k]);getch();return 0;}