Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=414476&view=findpost&p=3794632 Wed, 03 Apr 2019 13:34:11 +0000 Решения сравнения https://forum.sources.ru/index.php?showtopic=414476&view=findpost&p=3794632 MBo Pascal https://forum.sources.ru/index.php?showtopic=414476&view=findpost&p=3794619 Wed, 03 Apr 2019 11:09:26 +0000 Решения сравнения https://forum.sources.ru/index.php?showtopic=414476&view=findpost&p=3794619 Simon25 Pascal https://forum.sources.ru/index.php?showtopic=414476&view=findpost&p=3794427 Mon, 01 Apr 2019 13:48:03 +0000 Решения сравнения https://forum.sources.ru/index.php?showtopic=414476&view=findpost&p=3794427 я тут написал что-то, но это часть кода:
    Program System_1;
    uses crt;
    var a,b,m,i:integer;
    begin
    write('a: ');
    read(a);
    write(' b: ');
    read(b);
    write('m: ');
    read(m);
    while (a<>m) do begin
    if (a > m) then a:=m
    else
    m:=a;
    end;
    end.
]]> Simon25 Pascal