QH
0
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
24 tháng 10 2016
1B 4C
2A 5A
3C 6C
7.
program TBC;
uses crt;
var a,b,tbc:real;
begin
clrscr;
write('nhap so a:');readln(a);
write('nhap so b:');readln(b);
tbc:=(a+b):2;
writeln('tbc cua hai so a va b la:',tbc:6:2);
readln;
end.
3 tháng 4 2018
Bạn tự khai báo nhé!;
Ảnh nhỏ thì nhấn mở hình ảnh trong tab mới nha
3 tháng 4 2018
4...
begin
repeat
write('N= '):
readln(n);
until n>0;
s:=0;
for i:=1 to n do
s:=s+1/n;
write('s= ',s);
readln
end.
17 tháng 12 2019
Dòng 1: dư dấu ':'
Sửa lại: var a,b:integer;
Dòng 2: dư dấu ':'
Sửa lại const c=3;
Dòng 4: thiếu dấu ;
sửa lại: a:=200;
Dòng 5: sai kiểu dữ liệu:
sửa lại: b là real thì mới gán cho phép chia được
Dòng 6: thiếu;
Sửa lại: writeln(b:4:2);
NT
23 tháng 10 2017
uses crt;
const tb=30000;
var tt, dg, sp: real;
ht, dc: string;
begin
clrscr;
write('Nhap ho ten khach hang: ');
readln(ht);
write('Nhap dia chi khach hang: ');
readln(dc);
write('Nhap don gia: ');
readln(dg);
write('Nhap so phut su dung: ');
readln(sp);
tt:=dg*sp+tb;
write('Quy khach phai tra: ',tt,' dong.');
readln
end.
Chúc em học tốt!
14 tháng 12 2019
Câu 1: B
Câu 2: D
Câu 3: D
Câu 4: Thông báo lỗi
Câu 5: C
Câu 6: B
Câu 7: C
Câu 8: D
Câu 9: Hoán đổi giá trị hai biến a và b nhé bạn
Câu 10: B
Câu 11: B
Câu 12: D
Câu 13: C
Câu 14: A
Câu 15: C
Câu 16:
-Cấu trúc rẽ nhánh có 2 dạng.png)
Câu 17
uses crt;
var a:integer;
begin
clrscr;
write('a='); readln(a);
if a mod 2=0 then writeln(a,' la so chan')
else writeln(a,' la so le');
readln;
end.
BA
14 tháng 12 2019
C1: A
C2: D
C3: D
C4: báo lỗi
C5: C
C6: B
C7: C
C8: D
C9: Hoán đổi gt biến a và b
C10: B
C11: B
C12: D
C13: C
C14: A
C15: C
C16
- Cấu trúc rẽ nhánh có 2 loại
C17
TN
3 tháng 1 2018
a) (1/(b+2))*(a*a+c)=5
b) (k*k)+((k+1)*(k+1)) < > (k+2)*(k+2)
c) 8*x-7>1
d) (b*b)-(4*a*c) >=0
e) (1/n)*(1/(n+i))*(1/(n+2)) <0,01
f) (a-3)*(a+5)=0
g) ((a+c)*h)/2 < > 1
h) 2*x+3 <= 25*y;
k) x >= (m+5)/(2*a);
l)3,14*(R*R) > a*a
1 tháng 4 2020
Đoạn chương trình 1:
j=7
k=10
Đoạn chương trình 2:
j=7
k=28
E
26 tháng 4 2019
1 : có trong sgk
3:
a) b1: T←0;
B2: 1 → n ;
B3 : T:=T+1/(i*i) ;
B4: Kết thúc
H
26 tháng 4 2019
var a:array[1..32000] of integer;
i,n,j,tam:integer;
begin
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i] > a[j] then
begin
tam:=a[i]; a[i]:=a[j]; a[j]:=tam;
end;
writeln('ket qua sap xep la:');
for i:=1 to n do write(A[i]:5);
readln
end.
HD
Hà Đức Thọ
Admin
28 tháng 9 2016
Những chỗ sai được in đậm em nhé
program Hà 0908
uses crt;
begin
clrscr;
writeln('(2+9)(9+2)/(10+1)= '; (2+9)(9+2)/(10+1)= :4:2');
readln;
end.
Sửa lại như sau:
program Ha_0908;
uses crt;
begin
clrscr;
writeln('(2+9)(9+2)/(10+1)= ', (2+9)(9+2)/(10+1):4:2);
readln;
end.
1 tháng 10 2016
sai nhu nay
Hà 0908 ko ';'
writeln... =;4;2'); => ko co dau ' nay nha