В ралли участвуют машины Ferrari, Toyota и Ford. Определить, какая машина получит главный приз, если Ferrari прошла дистанцию за время T1 час, Toyota - за T2 час, а Ford - T3 час.(Считать T1<>T2<>T3)
(составить программу в паскале) СРОЧНО!

noskovee: я не изучал паскаль но алгоритм есть)

Снеговик13: какой же?

noskovee: T1,T2,T3 задаются с клавы?)

Снеговик13: да

noskovee: забираем числа сравниваем их if-ами и распределяем места)

Ответы

Ответ дал: djrazor308

program run;
var T1, T2, T3, min:integer;
begin
write('Введите время Ferrari : ');readln(T1);
write('Введите время Toyota : ');readln(T2);
write('Введите время Ford : ');readln(T3);
if(T1>T2) then min:=T2
else min:=T1;
if(T3>min) then
begin
if(min=T1) then writeln('Самой быстрой была Ferrari.')
else writeln('Самой быстрой была Toyota');
end
else writeln('Самой быстрой машиной был Ford.');
end.

noskovee: пожалуйста)

djrazor308: это точно паскаль?что за inputbox?..я такого в паскале не знаю даже

noskovee: а это и не паскаль)

noskovee: это vbs)

noskovee: да и vb в принципе)

djrazor308: аааа..так-то и на с++ можн накатать.)просто почему у вас мое решение ошибку выдает я до сих пор не знаю

noskovee: моет free pascal палёный?)))

noskovee: может

djrazor308: у меня точн не

djrazor308: спасибо за лучший ответ)

Вас заинтересует

Русский язык