Пожалуйста помогите :) В Паскале: Составить программу. Ввести 2 числа. Вычесть из...

Question

Пожалуйста помогите :)
В Паскале: Составить программу. Ввести 2 числа. Вычесть из большего меньшее.

Answer 1

Program chisla;
uses crt;
var a,b,c : integer;
begin
Write('Введите два числа: ');
Readln(a,b);
if a>b then c:=a-b else c:=b-a;
Writeln('Разность чисел равна ',c);
end.

Comments

Лучше не забивать память лишней переменной.Таким образом происходит экономия памяти :
uses crt;
var a,b : integer;
begin
Write('Введите два числа: ');
Readln(a,b);
if a>b then
Writeln('Разность чисел равна ',a-b) else
Writeln('Разность чисел равна ',b-a);
end.