Ответ:
program nnn;
var a, b, c, d, e:integer;
begin
readln(a, b, c);
d:=a+b;
e:=c-b;
if d=e then writeln('Равенство выполнено')
else writeln('Равенство не выполнено')
end.
Объяснение:
Решение показано во вложениях. В первом - результат, во втором - формула.
Ответ: <u>2594.4 </u>
Program zadacha;
var a,b,c:integer;
begin
read (a);
b:= a div 10;
c:= a mod 10;
a:= abs(b-c);
write (a);
end.
F5
Или зеленая стрелочка возле верхнего меню