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
QA
25 tháng 4 2017
Tự luận:
Câu 1: Các câu lệnh của vòng lặp không có câu lệnh kết thúc điều kiện thì vòng lặp sẽ lặp vô hạn.
Câu 2: Máy thực hiện 5 vòng lặp:
Vòng lặp 1: M=2
Vòng lặp 2: M=4
Vòng lặp 3: M=6
Vòng lặp 5: M=8
Vòng lặp 5: M=10
Câu 3:
program tỉntong;
uses crt;
var s :real; i, n : integer;
begin
clrscr;
write('So thu n la: '); readln(n);
S:=0; i:=1;
while i<= n do begin
S:=S+1/i; i:= i+1; end;
writeln('Tong cac so do la: ',S:2:3);
readln
end.
Ko hiểu chỗ nào thì bạn hỏi nhé!
mình đang cần gấp
25 tháng 9 2016
begin
writeln('*****');
writeln('*****');
writeln('*****');
writeln('*****');
writeln('*****');
readin
end.
Các bạn giúp mình với 
4 tháng 12 2016
mình thấy ở trang 71 SGK có bài tương tự
program Tinh_trung_binh_cong;
uses crt;
var n, dem : integer;
a, TB : real;
begin clrscr;
dem:= 0; TB:=0;
write('Nhap so cac so can tinh n = '); realn(n);
write dem < n do
begin dem:= dem + 1;
write('Nhap so thu ', dem,' = '); realn(a);
TB:= TB + a;
end;
TB:= TB/n;
writeln('Trung binh cua ', n, ' so la = ', TB:10:3);
writeln('Nhan Enter de thoat ...');
readln;
end.
g
HN
10 tháng 5 2017
4a
5d
7 không đáp án nào đúng đâu bạn
8c
9a
12a
13a
14d
15c
16c
17b
19c
chúc bạn thi tốt 
ND
3
8 tháng 5 2017
thiếu hai dấu chấm phẩy ";" ở: 
sửa thành:
TB: real;
A: array [1..100] of real;
lại thiếu dấu chấm phẩy ở ba chỗ nữa lần lượt là:
và 
và 
Sửa lại thành:
readln (a[i]);
TB:=0;
TB:=TB/n;
Cần có thêm readln trên end. để dừng chương trình lại để xem.
8 tháng 10 2017
https://www.youtube.com/watch?v=NUzLKQv9Jd8
Video này có hướng dẫn nè bn...vào xem lam như họ là đc...hầu mk cũng bị cái này rồi
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if (n mod i=0) and (i%2=1) then write(i:4);
readln;
end.