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

mail000alomer mail000alomer    2   18.05.2019 00:00    3

Ответы
Aigerimmmmmmm Aigerimmmmmmm  11.06.2020 05:08

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. 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика