I)AX+B=0
{Ax+B=0}
var a,b:real;
st:string;
begin
writeln;
write('Enetr A Value ');
readln(a);
write('Enetr B Value ');
readln(b);
writeln((b*-1)/a:5:4);
readln;
end.
II) Total Persents
{Persents}
var a,b,c:real;
begin
writeln;
write('Enetr First Persent ');
readln(a);
write('Enetr Second Persent ');
readln(b);
write('Enetr Third Persent ');
readln;
writeln;
writeln;
writeln('Total Persent Is ',(a+b+c)/3:2:2,' %');
writeln;
writeln;
readln;
end.
أخيراً أتمنى أن تجد ما تريد..ولا تتردد بالسؤال!![CODE]
