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
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 
Các bạn giúp mình với 
TT
mình đang cần gấp
6
25 tháng 9 2016
begin
writeln('*****');
writeln('*****');
writeln('*****');
writeln('*****');
writeln('*****');
readin
end.
NT
3
27 tháng 4 2017
4. program bai_4;
ues crt;
var
s,n,i:integer;
begin
clrscr;
write('nhap n:');readln(n);
s:=0;
for i:=1 to n do
if i (mod 2=0) then s:=s+1;
write('tong la:',s:7);
readln;
end.
5.program bai_5;
uses crt;
var
i,s,n:integer;
begin
clrscr;
write('nhap n :');readln(n);
s:=0;
for i:=1 to n do s:=s+1;
writer('tong la:',s);
readln;
end.
27 tháng 4 2017
8.program bai_8;
uses crt;
var
A:=array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('nhap n=');readln(n);
for i:= 1 to n do
begin
write('A[',i,']=');readln(A[i]);
end;
for i:= 1 to n do write(A[i],' ');
max:=a[1];
for i:= 1 to n do
if a[i] mod> max then:=a[i];
write('gia tri lon nhat trong mang la:',max);
readln;
end.
ND
3
14 tháng 5 2020
Cộng cho 1/n(n+n) chứ bạn
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+1/(i*(i+i));
i:=i+1;
end;
writeln(s:4:2);
readln;
end.
13 tháng 11 2019
câu 2 bạn xem lại đề nhé
câu 1:
bước 1: nhập n
bước 2: t:=0; i:=2;
bước 3: t:=t+1/i; i:=i+1;
bước 4: nếu i<=n thì quay lại bước 3
bước 5: xuất t
bước 6: kết thúc
NT
1
11 tháng 5 2017
Program tính_chia;
Uses crt;
Var i, n, s, a: integer;
Begin
Write('Nhap so n: '); readln(n);
s:=1;
For i:=1 to n do s:=s*i;
a:=0;
For i:=1 to n do a:=a+i;
Writeln('Ket qua phep tinh chia bang: ', s/a :10:2);
readln;
End.
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.