Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
t moche
//fpc 3.0.0 program HelloWorld; var Number1: integer; var Number2: integer; var Number3: integer; var Place1: integer; var Place2: integer; var Place3: integer; begin writeln('Bienvenue dans le tri automatique par des chinois.'); writeln('Vous allez choisir 3 nombres qui vont être automatiquement triés par des chinois, let''s go!'); writeln('Quel est ton nombre 1 pour les chintoc?'); readln(Number1); writeln('Quel est ton nombre 2 pour les mangeur de chien?'); readln(Number2); writeln('Quel est ton nombre 3 pour les bridé?'); readln(Number3); if (Number1<Number2) then begin if (Number1<Number3) then Place1 := Number1; end else if (Number2<Number3) then Place2 := Number2 else begin place3 := Number3; end end.
run
|
edit
|
history
|
help
0
342
Lab1SumWithFor
Shuffle number array
practica 11 ejercicio 3
проверка числа на отсутствие возрастающих и убывающих четвёрок
Номер подъезда и этажа по номеру квартиры, количеству этажей и квартир на этаже
aefrt
LUIZ ANTONIO RANGEL MUNIZ 60061122
test29
Trabajo pascal