Question

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

Answer 1

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.