Var a,b,c: real;
Begin
Writeln ('введите a,b,c');
Readln (a,b,c);
If a+b=c then writeln (a,' + ',b,' = ', c) else
If a+c=b then writeln (a,' + ',c,' = ',b) else
If b+c=a then writeln (b,' + ',c,' = ',a) else writeln ('нет такого числа');
End.
Сместиться в точку (2;1)
опустить перо
сместиться в точку (4;6)
сместиться в точку (6;1)
сместиться в точку (2;1)
While n > 0 do begin
S := S + n mod 10;
n := n div 10;
<span>end;а</span>
B=642.25(8) = 1A2<span>.54(16)
a+b= 5C1.5(16) + </span>1A2.54(16) = 763<span>.A4(16)</span>