Даны числа a и b найти разницу между ними. С клавиатуры водится 2 числа определить большее и на сколько оно большое.
Answers & Comments
blowberryninja
Program abc; uses crt; var a,b:integer; begin readln(a,b); if a>b then writeln(,a,' > ',b,' на ',a-b) else writeln(,a,' < ',b,' на ',b-a); end.
Answers & Comments
uses crt;
var a,b:integer;
begin
readln(a,b);
if a>b then writeln(,a,' > ',b,' на ',a-b)
else writeln(,a,' < ',b,' на ',b-a);
end.