Регистрация
Andriuy2003
25.03.2022 18:44
Информатика
Есть ответ 👍

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

127
395
Посмотреть ответы 3

Ответы на вопрос:

LionesBastia
LionesBastia
4,8(90 оценок)

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.

 

zaharsd
zaharsd
4,4(79 оценок)

    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.

Maxxwell1
Maxxwell1
4,8(19 оценок)
Var       i, n, s: integer; begin       readln(n);       n : = n + (n + 1) mod 2;             for i : = 1 to 5 do       begin               s : = s + n;               n : = n + 2;       end;       writeln(s); end.

Популярно: Информатика