Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
292
233
câu 21:
ban đầu:
var so1,so2,hieu:=integer;
begin
write('chuong tring thuc hien phep tru so hoc');
so1:=400;
so2:=200;
hieu:so1-so2;
write('ket qua=',hieu:5);
readln;
end;
a) sau khi sửa:
var so1,so2,hieu:integer (bỏ dấu "=")
begin
write('chuong tring thuc hien phep tru so hoc');
so1:=400;
so2:=200;
hieu:=so1-so2; (thêm dấu "=")
write('ket qua=',hieu:5);
readln;
end. (thay dấu ";" bằng dấu "."
b) kết quả sau khi đã sửa hết lỗi: "chuong trinh thuc hien phep tru so hocket qua =200"
câu 22:
var n,m,i,s:integer;
begin
clrscr;
write('nhap so n:'); readln(n);
write('nhap so m:');readln(m);
while n>m do
begin
writeln(' n phai be hon m');
write('nhap lai n:');
readln(n);
end;
for i:=n to m do
if i mod 4=0 then s:=s+i;
write('tong cac so chia het cho 4 trong pham vi tu n den m la:',s);
readln;
end.
(mong dc 5*+hay nhất)
Hãy giúp mọi người biết câu trả lời này thế nào?
1470
721
Câu 21:
a)
Dòng 1
Var so1,so2,hieu:=integer;
⇒Sai→Cấu trúc khai báo biến: Var <tên biến>:<kiểu dữ liệu>;
→Sửa lại: Var so1,so2,hieu:integer;
Dòng 4
so1:=200
⇒Sai→Khi kết thúc câu lệnh gán giá trị thì phía sau nó phải có dấu " ; "
→Sửa lại: so1:=200;
Dòng 6
hieu:so1-so2;
⇒Sai→Đây là câu lệnh gán giá trị nên nó thiếu dấu =
→Sửa lại: hieu:=so1-so2;
Dòng 9
End;
⇒Sai→Khi kết thúc chương trình thì end kết thúc bằng dấu chấm.
→Sửa lại: End.
b) Sau khi chương trình đã sửa hết lỗi thì kết quả là 200
→Giải thích: so1:=400; so2:=200;
→hieu:=so1-so2→400-200=200
Câu 22:
uses crt;
var n,m,i,s:integer;
begin
clrscr;
s:=0;
write('Nhap n: '); readln(n);
write('Nhap m: '); readln(m);
write('Cac so chia het cho 4 tu n den m la: ');
for i:=n to m do
if i mod 4=0 then s:=s+i;write('Tong: ',s);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
1470
721
Phạm vi từ n đến m thì n phải bé hơn hoặc bằng m
292
233
đr mà lỡ người ta nhập như thế thì phải làm seo? phải nghĩ đến mọi trường hợp xảy ra chớ
1470
721
Bài này tầm lớp 8 chưa hc tới mấy đk khác đâu
1470
721
Nếu muốn thêm đk thì if then
1470
721
if n<m then for i:=1 to n do else for i:=m downto n
1470
721
if n<=m then for i:=n to m do else for i:=m downto n
292
233
Bài này tầm lớp 8 chưa hc tới mấy đk khác đâu ->cái đề ghi lớp 11 to chà bá kìa ông ;-;
1470
721
Chắc để lộn thôi nếu lớp 11 thì xâu, hàm, ct con, tệp, passwword,...
Bảng tin