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

Question

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

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.

Так =)

Comments

неа

---

неправильно

---

Что?

---

может быть её надо было написать целиком програму

---

Program и uses не обязательно, а readln в конце уже устарел, как и program

---

Так что всё ок

---

может быть

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<br>if (b<=a) then min:=b<br>writeln('min=',a,'min=',b);
readln;end.

Comments

writeln('min=',a,'min=',b); вот это я не очень помню, "поиграй"с этим