BD
1
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 12 2016
de 1:
huong dan
- Nhập hai cạnh vào hai biến a, b.
- Chu vi hình chữ nhật bằng 2*(a+b); Diện tích hình chữ nhật bằng a*b.
b. Mã chương trình:
Program Chu_nhat;
uses crt;
Var a, b, S, CV: real;
Begin
Write('Nhap chieu dai:'); readln(a);
Write('Nhap chieu rong:'); readln(b);
S := a*b;
CV := (a+b)*2;
Writeln('Dien tich hinh chu nhat la:',S);
Writeln('Chu vi hinh chu nhat la:',CV:10:2);
readln
end.
de 3,
program bt;
uses CRT;
var m,n:integer;
T:real;
BEGIN clrscr;
write('m,n ='); readln(m,n);
writeln('Tong la:',m+n);
writeln('Hieu la:',m-n);
writeln('Tich la:',m*n);
T:=m/n;
writeln('Thuong la:',T);
readln
END.
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
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.
13 tháng 12 2019
uses crt;
begin
clrscr;
writeln('rat vui khi duoc lam quen voi cac ban');
writeln('day la bai kiem tra hoc ki 1 mon tin hoc lop 8');
writeln('chuong trinh Turbo Pascal rat la hay');
readln;
end.
25 tháng 11 2017
Program bai1;
uses crt;
var a,b,s: integer;
begin
clrscr;
write('nhap so a ='); readln(a);
write('nhap so b ='); readln(b);
s:=a+b;
writeln('- tong cua hai so a va b =',s);
if s mod 2 = 0 then writeln('tong la so chan ')
else writeln('- tong la so le ');
readln;
end.
24 tháng 10 2020
Câu 6:
uses crt;
var a:integer;
begin
clrscr;
write('Nhap a='); readln(a);
if a mod 2=0 then writeln(a,' la so chan')
else writeln(a,' la so le');
readln;
end.
Câu 7:
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if a>b then writeln(a-b)
else writeln(b-a);
readln;
end.
Câu 8:
uses crt;
var a,b,c,ln:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
ln:=a;
if ln<b then ln:=b;
if ln<c then ln:=c;
writeln(ln);
readln;
end.
Câu 10:
uses crt;
var toan,ly,hoa,dtb:real;
begin
clrscr;
write('Nhap diem Toan:'); readln(toan);
write('Nhap diem Ly:'); readln(ly);
write('Nhap diem Hoa:'); readln(hoa);
dtb:=(toan*2+ly+hoa)/4;
if dtb<5 then writeln('Yeu');
if (5<=dtb) and (dtb<8) then writeln('Kha');
if dtb>=8 then
begin
if (toan=10) and (hoa>7) and (ly>7) then writeln('Gioi va nhan hoc bong')
else writeln('Gioi va khong nhan hoc bong');
end;
readln;
end.
ngu như m thì im