[]
اقتباس:
المشاركة الأصلية كتبت بواسطة AKKAINMOH
السلام عليكم
اريد صنع هذه العملية باستعمال لغة pascal مع تحديد les variables et son types
Lire une chaine de caractères et l'afiice avec sa longueur
lire un caractère est affiche son successeur
وشكرا
وجعلها الله في ميزان حسناتكم
|
كود:
program exo;
uses wincrt;
var chaine:string;
c:char;
begin
writeln('s.v.p entrer une chaine de carecterre');
readln(chaine);
writeln('la longueur de chaine est:', length(chaine));
writeln('s.v.p entrer un charecterre');
readln(c);
writeln('le succesive est:', succ(c));
end.