Предмет: Информатика,
автор: Shroom13
найти лучший результат по бегу на 100 м трех участников паскаль пожалуйста!!!
Ответы
Автор ответа:
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
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
Автор ответа:
0
СПАСИБУШКИИИИИИИ**
Автор ответа:
0
тут даже переменную мин можно не вводить
Автор ответа:
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.
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.
Похожие вопросы
Предмет: Английский язык,
автор: Adelia03987
Предмет: Қазақ тiлi,
автор: nuraru0827
Предмет: Алгебра,
автор: begaimbegaim03
Предмет: Математика,
автор: tiurina2050
Предмет: Геометрия,
автор: taguhigrigoryan