Ввести 2 числа. Вычесть из большего меньшее. (на языке паскаля)

Question

Информатика

Лавря

1 июня, 03:47

Ввести 2 числа. Вычесть из большего меньшее. (на языке паскаля)

+5

Ответы (1)

Знаете ответ на вопрос?

Ванда · Answer 1

program prim;

uses crt;

var

a, b, r: integer;

begin

clrscr;

writeln ('ввести два числа') ;

readln (a, b) ;

if a>b then

begin

r:=a-b;

end

else

begin

r:=b-a;

end;

writeln ('r=', r:5) ;

readkey;

end.