▼ กำลังโหลดข้อมูล... ▼
แสดงความคิดเห็น
คุณสามารถแสดงความคิดเห็นกับกระทู้นี้ได้ด้วยการเข้าสู่ระบบ
-
หน้าแรก
- คอมมูนิตี้
- {name} {description}
- กิจกรรม
- แลกพอยต์
- อื่นๆ
คุณสามารถแสดงความคิดเห็นกับกระทู้นี้ได้ด้วยการเข้าสู่ระบบ
Error: 26 Type mismatch. รบกวนช่วยดูโปรแกรม pascal ผมทีครับ
uses wincrt;
var ch:char;
b,i,M:integer;
begin
write('input M : ');readln(M);
write('input char : ');readln(ch);
b:= M mod 2;
if (M>1) and(b<>0) then
begin
for i:=1 to (M-1)*0.5 do
write('*');
end;
end.