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;
}
CLS
PRINT "Enter the coefficient a"
INPUT a
PRINT "Enter the coefficient b"
INPUT b
PRINT "Enter the coefficient c"
INPUT c
LET d = b ^ 2 - 4 * a * c
LET x = (-b + SQR(d)) / (2 * a)
LET y = (-b - SQR(d)) / (2 * a)
PRINT "The first root"
PRINT x
PRINT "The second root"
PRINT y
PRINT "The discriminant"
PRINT d
INPUT "Do You want to repeat? (Y/N)", r$
LOOP UNTIL UCASE$(r$) <> "Y"