Предмет: Информатика,
автор: Huliganpro
Написать задачу которая найдёт лучший результат в забеге на 100м трех спортсменов
Ответы
Автор ответа:
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.
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
Предмет: Химия,
автор: Vikoccka
Предмет: Химия,
автор: parfen4uckкатечка