Cho đoạn chương trình:
a. Chương trình trên có lỗi không? Nếu có hãy chỉ ra mã lỗi và sửa lại.
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.
Những câu hỏi liên quan
21 tháng 8 2018
a) uses crt;
b) var dt, r: real;
c) Thiếu readln(r);
d) dt:= pi*sqr(r);
14 tháng 5 2022
uses crt;
var i,n,kt:integer;
begin
clrscr;
readln(n);
kt:=0;
for i=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if (kt=0) and (n>1) then write('phai')
else write('Khong phai');
readln;
end.
KV
14 tháng 5 2022
Var i,n,souoc:integer;
Begin
While n <= 1 do
Begin
Write('Nhap n = ');readln(n);
End;
For i:=1 to n do
If n mod i = 0 then souoc:=souoc+1;
If souoc = 2 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
TD
1
26 tháng 4 2023
| Program Tinhoc | Program Tinhoc; |
| Var i,n,S:real | Var i,n,S:real |
| Begin | Begin |
| Write(nhap so); | Write("nhap so"); |
| readln(n); | readln(n); |
| i=1; | i:=1; |
| while i<n | while i<n do |
| begin | begin |
| s:=s+i | s:=s+i; |
| i:=i+1 | i:=i+1; |
| end; | end; |
| write('Ket qua la: ' S); | write('Ket qua la: ' ,S); |
| readln; | readln; |
| end | end. |
10 tháng 7 2017
a) Program chuvi_duongtron;
b) const pi = 3.14;
c) readln(r);
d) Thiếu End.
24 tháng 6 2018
a) Program chuvi_duongtron;
b) const pi = 3.14;
c) write(‘nhap ban kinh r = ‘);
d) Thiếu End.
31 tháng 10 2017
a) uses crt;
b) var dt, r: real;
c) Thiếu Begin
d) dt:= pi*sqr(r);
30 tháng 3 2022
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do t:=t+i;
writeln(t);
readln;
end.
