Более удобный, компактный и требующий меньше памяти код, чем у предыдущего ответа.
Пояснение:
1) вводятся два числа и забиваются в значения a и b соответственно.
2)при команды else производится отбор. Если а больше b, то идет запись, если нет, то идет другое else, где если a меньше b, то идет запись их. В конечном случае, если не выполняется ни то, ни то, то просто выводится, что они равны, т.к больше нет никаких вариантов.
Program comparison;
var
a,b,c:real;
begin
write ('Введите первое число:');
readln(a);
write ('Введите второе число:');
readln(b);
if a>b then
begin
c:=a-b;
write ('Первое число больше второго на ', c);
end;
if a<b then
begin
c:=b-a;
write ('Второе число больше первого на ', c);
end;
if a=b then
write ('Числа равны');
end.
Более удобный, компактный и требующий меньше памяти код, чем у предыдущего ответа.
Пояснение:
1) вводятся два числа и забиваются в значения a и b соответственно.
2)при команды else производится отбор. Если а больше b, то идет запись, если нет, то идет другое else, где если a меньше b, то идет запись их. В конечном случае, если не выполняется ни то, ни то, то просто выводится, что они равны, т.к больше нет никаких вариантов.
Код:
Program school6;
var a,b:real;
begin
write ('Введите первое число:');
readln(a);
write ('Введите второе число:');
readln(b);
if a>b then
write ('Первое число больше второго на ', a-b)
Else
If a<b then
write ('Второе число больше первого на ', b-a)
Else Write('числа равны');
end.