Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Tri 1.0
//fpc 3.0.0 program HelloWorld; var number1: integer; number2: integer; number3: integer; one,two,three: integer; answer: string; yes: string; begin writeln('Bienvenue dans le tri automatique !'); writeln('Vous allez choisir 3 nombres qui vont être automatiquement triés par l''ordinateur, let''s go !'); writeln('Quel est ton nombre 1 ?'); readln(number1); writeln(number1); writeln('Quel est ton nombre 2 ?'); readln(number2); writeln(number2); writeln('Quel est ton nombre 3 ?'); readln(number3); writeln(number3); writeln('Beep beep...'); writeln('Tes nombres sont maintenant triés:'); if(number2<number3) and (number2<number1)then begin one:= number2; two:= number3; three:= number1; writeln(one, ' ', two, ' ', three); end; writeln(''); writeln('Veux-tu recommencer ?'); writeln(answer); readln(answer); begin if(answer='oui')then writeln('Quel est ton nombre 1 ?'); readln(number1); writeln(number1); writeln('Quel est ton nombre 2 ?'); readln(number2); writeln(number2); writeln('Quel est ton nombre 3 ?'); readln(number3); writeln(number3); writeln('Beep beep...'); writeln('Tes nombres sont maintenant triés:'); if(number3<number2) and (number2<number1)then end; end.
run
|
edit
|
history
|
help
0
a2
Урок 6. Задача 9 (1533). Два самых маленьких числа
Определение стенки с максимальной высотой
1 4 6
2 5 8
translator number system
AreaTriangulo.pas
nomer7
1 задание
Giai pt bac 2