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

найти лучший результат по бегу на 100 м трех участников паскаль пожалуйста!!!

Ответы

Автор ответа: petyaGavrikov
0
var r1,r2,r3,min:real;
begin
writeln('Введите результаты:');
readln(r1,r2,r3);
if r1<r2 then min:=r1 else min:=r2;
if r3<min then min:=r3;
writeln('Лучший результат = ',min);
end.

Пример:
Введите результаты:
12.1 10.8 11.7
Лучший результат = 10.8
Автор ответа: Shroom13
0
СПАСИБУШКИИИИИИИ**
Автор ответа: Aillianna
0
тут даже переменную мин можно не вводить
Автор ответа: Aillianna
0
var
    r1, r2, r3: real;

begin
    write('Введите результаты: ');
    readln(r1, r2, r3);
   
    if r1 > r2 then r1 := r2;
    if r1 > r3 then r1 := r3;
   
    writeln('Лучший результат = ', r1);
end.


Похожие вопросы
Предмет: Қазақ тiлi, автор: nuraru0827
Предмет: Алгебра, автор: begaimbegaim03