const N = 10;
var a, i, count, z: integer; s:string;
suc: array[1..N] of integer;
begin
Randomize();
count := 0;
z := 1;
for i := 1 to N do begin
a := random(10, 50);
Str(a, s); if s[2] = '4' then begin count += 1; suc[z] := a; z += 1; end;
end;
if count > 0 then begin for i := 1 to z-1 do begin writeln('Выиграшное число: ', suc[i]); end;
Writeln('Всего выиграшных билетов: ', count, ' из ', N); end
else Writeln('Нет ни одного выиграшного билета');
end.
Объяснение:
Как-то так, наверное
Объяснение:
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
double a, x, b, c, D;
cout<<"Введите a: "; cin >> a;
cout<<"Введите b: "; cin >> b;
cout<<"Введите c: "; cin >> c;
D = pow(b,2)-4*a*c;
if(D>0){
cout << "x1 = " << ((-1)*b+sqrt(D))/(2*a)<<endl;
cout << "x2 = " <<((-1)*b-sqrt(D))/(2*a)<<endl;
}
else if(D==0){
cout << "x = " << ((-1)*b)/(2*a)<<endl;
}
else{
D*=(-1);
cout<< "x1 = " << ((-1)*b)/(2*a) <<"+"<< (sqrt(D))/(2*a) << "*i" <<endl;
cout<< "x2 = " << ((-1)*b)/(2*a) <<"-"<< (sqrt(D))/(2*a) << "*i" <<endl;
}
return 0;
}
78-1001110
112- 1110000
347-101011011
230-11100110
612- 1001100100
395-110001011
789-1100010101
178- 10110010
256-100000000
800-1100100000