K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
5 tháng 1 2022
uses crt;
var n:integer;
begin
clrscr;
readln(n);
if n mod 2=0 then writeln(n,' la so chan')
else writeln(n,' la so le');
readln;
end.
16 tháng 3 2021
Chắc chắn là bạn phải thay kiểu dữ liệu Real sang Integer hoặc Byte rồi bởi vì Với vòng lặp for, biến đếm không bao giờ là số thực
NV
1
TL
1
18 tháng 3 2021
Câu 17: C
Câu 18: A
Câu 19: C
Câu 2: A
Câu 4: C
Câu 6: C
L
7 tháng 12 2021
Program tim_gia_tri_lon_nhat thiếu ;
=> Program tim_gia_tri_lon_nhat;
clrscr thiếu;
=> clrscr;
Các câu ở dưới bạn cũng thêm dấu; nhé
Lưu ý: lệnh readln không cần ; cũng chạy được chương trình ( Mình làm rồi, nên bạn có thể tin mình )
Bạn chú ý dấu; nha. Nếu ko có là sai hết chương trình đó 
H9
HT.Phong (9A5)
CTVHS
13 tháng 3 2023
Program câu 1;
Var n: Integer; s:real;
Begin
Writeln(‘ Nhap gia tri n=’); Readln(n);
S:=0;
While n<0 do
begin
s:=s+n/2; n:=n-1;
end;
write(‘tong s = ‘, s:8:2);
Readln;
End.
ML
13 tháng 3 2023
Lỗi sai:
Program câu 1; -> Tên chương trình không chứa dấu cách trắng.
-> Sửa: Program cau_1;
Writeln(‘ Nhap gia tri n=’); Readln; -> Nhập giá trị cho n nhưng thiếu lệnh đọc n
-> Sửa:
Writeln(‘ Nhap gia tri n=’); Readln(n);
While n >0 do
s:=s+n/2; n:=n-1;
Cả 2 câu lệnh s:=s+n/2; n:=n-1; đều nằm trong vòng lặp while..do nên cần begin...end con.
-> Sửa
While n >0 do
begin
s:=s+n/2; n:=n-1;
end;
30 tháng 12 2020
Sai ở chỗ vị trí đặt của Uses crt; Thiếu chấm phẩy sau lệnh Writeln và sai chính tả chữ Reason
Sửa lại:
program chao;
uses crt;
begin
writeln('Chao cac ban');
readln;
end.
mk ngu tiếng anh lém
usescrt phải cách ra giữa uses và crt
Trước else ko có chấm phẩy