Написать на паскале программу. определить что меньше а или б.

Question

Информатика

Русланыч

14 ноября, 07:00

Написать на паскале программу. определить что меньше а или б.

+1

Ответы (2)

Знаете ответ?

Цветана · Answer 1

Var a, b: real;

begin

readln (a, b) ;

if (a > b) then writeln (a, ' > ', b) ;

if (a = b) then writeln (a, ' = ', b) ;

if (a < b) then writeln (a, ' < ', b) ;

end.

Так =)

Денис · Answer 2

Program 123;

uses crt;

var

a, b: integer;

begin

clrscr;

writeln (' enter a, b') ;

readln (a, b) ;

if (a<=b) then min:=a

if (b<=a) then min:=b

writeln ('min=', a,'min=', b) ;

readln; end.