Bonjour,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
program ch;
uses wincrt;
var ch:string;l:longth(ch);
begin
readln(ch);
readln(l);
l:=longth(ch);
val(ch,d,erreur);
delete(ch,3,4);
end.
Ce programme ne s'exécute pas, aidez-moi à trouver la solution.
Et merci.