В ЭВМ поступают...

Тема в разделе "Информатика", создана пользователем Dиверсия, 12 мар 2010.

  1. Dиверсия

    Dиверсия New Member

    В ЭВМ поступают результаты соревнований по плаванию для трёх спортсменов. Составьте программу, которая выбирает лучший результат и выводит его на экранс сообщением, что это результат победителя заплыва. Помогите пожалуйста решить задачу через If.
     
  2. Admeral

    Admeral New Member

    program sorevnovaniya;
    var a,b,c: integer;
    begin
    writeln ('Введите результаты соревнований');
    readln (a,b,c);
    if (a<b) and (c<b) then writeln (b, '-', 'результат',' ','победителя',' ', 'заплыва');
    if (b<c) and (a<c) then writeln (c, '-', 'результат',' ','победителя',' ', 'заплыва');
    if (b<a) and (c<a) then writeln (a, '-', 'результат',' ','победителя',' ', 'заплыва');
    end.
     

Поделиться этой страницей

Наша группа