Даны числа a и b найти разницу между ними.С клавиатуры водится 2 числа определить большее и на сколько оно большое.
Даны числа a и b найти разницу между ними.
С клавиатуры водится 2 числа определить большее и на сколько оно большое.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы