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

Program 123;
uses crt;
var
a,b: integer;
begin
clrscr;
writeln(' enter a,b');
readln(a,b);
if (alt;=b) then min:=a
if (blt;=a) then min:=b
writeln('min=',a,'min=',b);
readln;end.

Цюрило Надежда 2019-08-15 14:41:13

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

Alla · Answer 2 · 2019-08-15 14:41:43+3:00

Alla 2019-08-15 14:41:43

Var a, b: real;
begin
readln(a, b);
if (a gt; b) then writeln(a, ' gt; ', b);
if (a = b) then writeln(a, ' = ', b);
if (a lt; b) then writeln(a, ' lt; ', b);
end.

Так =)

Майорихин Миша 2019-08-15 14:47:25

неа

Павел 2019-08-15 14:53:38

ошибочно

Леонид Санчик 2019-08-15 15:02:50

Что?

Инна Левен 2019-08-15 15:12:31

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

Подладов Гена 2019-08-15 15:18:42

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

Лидия 2019-08-15 15:27:45

Так что всё ок

Василиса 2019-08-15 15:34:00

может быть

О проекте

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

Добро пожаловать!