Впрограмме паскаль ввести два числа и вывести их в порядке возрастания

Gulya55555 Gulya55555    1   21.05.2019 00:40    2

Ответы
koool3 koool3  14.06.2020 18:40

   program les;
   var a,b:integer;
   begin
   writeln(' vedite 4icla ');
   readln(a,b);
   if a>b then
   begin
   writeln(b,' ' ,a);
   end;
   if a<b then
   begin
   writeln(a,' ',b);
   end;
   end.

ПОКАЗАТЬ ОТВЕТЫ
den193p08o5z den193p08o5z  14.06.2020 18:40

program qf;

uses crt;

var x,y:integer;

begin

clrscr;

writeln('введи числa');

readln(x,y);

if x>y then writeln(y,x) else writeln(x,y);

readln;

end.

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика