Разность во времени, в процентах, будет вычисляться по формуле:
100*|(a+b)/(a-b)|
Условие следующее: если значение этого выражения будет больше 40, то будет выполняться какое-либо действие.
Var n,i:integer;
begin
for n:=2 to 99 do
begin
for i:=2 to 99 do
begin
if (n+i)=(n*i) then writeln(n,' ',i);
end;
end;
end.<span>
</span>
Program asd;
USES crt;
var result:real;
a,b,c,i:integer;
BEGIN
clrscr;
Writeln('Vvedite 3 chisla polowitelnyx: ');
Readln(a,b,c);If (a<0) or (b<0) or (c<0)
then
Writeln('Error!')
else
Result:=(a+b+c)/3;
Writeln(Result);
<span>END.</span>
Ну, если А и В задаются как угодно. Тогда задача имеет море способов решения.
К примеру:
А= 9
В= 4
9-4=5 и т.д