Увеличь. есть только такая . Надеюсь понравится .
Y=(3+4x+5x²)*(x²)
5x²+4x+3=0 или x²=0
1)
#include <iostream>
#include <stdlib.h>
using namespace std;
int main() {
int a, k = 0;
cin >> a;
for(int b = abs(a);b > 0; b/=10)
if(b%10%2 == 0) k++;
cout << k << endl;
}
2)
#include <iostream>
#include <stdlib.h>
using namespace std;
int main() {
int n, a, b;
bool flagA = false, flagB = false;
cin >> n >> a >> b;
for(int d = abs(n);d > 0; d/=10) {
if(d%10 == a) flagA = true;
else if(d%10 == b) flagB = true;
}
cout << ((flagA && flagB) ? "true" : "false") << endl;
}
//Pascal ABC.NET 3.1 сборка 1256
Var
b,a,m,ar:real;
i:integer;
begin
readln(b,m,a);
i:=0;
ar:=a*m;
while ar>a do
begin
inc(i);
a:=a*(b/100+1);
end;
writeln(i);
end.
Пример ввода:
33
2
100
Пример вывода:
3
//Pascal
//Функция факториала
function fact(n: integer): real;
begin
if (n = 0) then fact := 1
else fact := n * fact(n - 1);
end;
//Main
var
a: real;
x, lim: integer;
begin
write('Введите x: '); readln(x);
lim := x; a := 0;
for x := 1 to lim do
begin
//a := a + (power(2, x) * fact(x))/(power(x, x));
a := a + ((exp(ln(2) * x)) * fact(x))/(exp(ln(X) * x));
end;
writeln('a = ', a:5:3);
readln;
end.