Ответы
Ответ дал:
0
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.
Так =)
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.
Так =)
Ответ дал:
0
Что?
Ответ дал:
0
Program и uses не обязательно, а readln в конце уже устарел, как и program
Ответ дал:
0
Так что всё ок
Ответ дал:
0
может быть
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад