Предмет: Информатика, автор: Huliganpro

Написать задачу которая найдёт лучший результат в забеге на 100м трех спортсменов

Ответы

Автор ответа: leon123
0
var s1,s2,s3:Integer;
Begin
 Writeln(' Введите результат 1-го спортсмена');
 Read(s1);
 Writeln(' Введите результат 2-го спортсмена');
 Read(s2);
 Writeln(' Введите результат 3-го спортсмена');
 Read(s3);
 if (s1>s2 and s1>s3) then Writeln('Наилучший результат ',s1)
 else if (s2>s1 and s2>s3) Writeln('Наилучший результат ',s2)
 else Writeln ('Наилучший результат ',s3)
end.



Похожие вопросы
Предмет: Алгебра, автор: mafgdwgxduydfut
Предмет: Математика, автор: 87024585221ismail
Предмет: Биология, автор: akadyrbekova050
Предмет: Химия, автор: parfen4uckкатечка