نمیدونم چرا وقتی به اینا فکر میکنم مغذم قفل میکنه !

یه مثال شاید کمک کنه :

کد:
program 3;
var
count:integer;
ch:char;
begin
writeln ('please enter statment');
read (ch);
while ch <> '.' do
begin
if (ch = 't') or ( ch = 'T') then
count=count+1;
readln (ch);
end;
writeln ('number of characters =',count);
end.
این برنامه کاراکتر های حرف t (و T) رو پیدا میکنه و میشماره !

دوشنبه خودم امتحان پاسکال دارم
اگه شما با اینا نتونستین کاری بکنین تا شب بازم فکر میکنم
اگه چیزی به ذهنم رسید میگم