В приложениИ Windows Forms создать программу Дано трехзначное число. Верно ли, что все его цифры одинаковы?

289

446

Посмотреть ответы 1

Ответы на вопрос:

lubivyjn

Информатика

4,5(45 оценок)

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.