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

Question

Информатика

Степан

15 апреля, 16:20

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

+3

Ответы (2)

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

Корнюша · Answer 1

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.

Виктуся · Answer 2

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.

Так =)