Написать на паскале программу .определить что меньше а или б.
Написать на паскале программу .определить что меньше а или б.
Гость
Ответ(ы) на вопрос:
Гость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.
Так =)
Гость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.
Не нашли ответ?
Похожие вопросы