Минимальным основанием такого числа будет система, имеющая максимальную цифру этого числа, то есть цифру F. Такой системой является 16ричная
Program korni;
uses crt;
var
a,b,c:integer;
x1,x2:real;
begin
writeln('введите коэффициент А, B и С');
readln(a,b,c);
x1:=sqr(b)-4*a*c;
x2:=(b*(-1)-sqrt(x1))/a*2;
x1:=(b*(-1)+sqrt(x1))/a*2;
writeln('корни уравнения: x1=',x1,',x2=',x2);
end.
Var a,b,n:integer;
begin
writeln('n=');
readln(n);
<span>a:=n mod 10;
b:=n div 10;
if (a= 4) or (b=4) or (a=7) or (b=7) then writeln('yes')
else
writeln('no');
readln;
end.
__________________________
</span>var a,b,n:integer;
begin
writeln('n=');
readln(n);
a:=n mod 10;
b:=n div 10;
if (a= 3) or (b=3) or (a=6) or (b=6) or (a=9) or (b=9)
then writeln('yes')
else
writeln('no');
readln;
end.
|----------------
| |
| |
|---------------|