câu hỏi thiếu bn ơi

câu hỏi thiếu bn ơi

B nha bn

Program bai_tap;

uses crt;

var i:integer;

begin

 clrscr;
 for i:=1000 to 1800 do

  if i mod 2=0 and i mod 6<>= then write(i,',');

 readln;

end.

khai báo biến:

var  <tên biến>:<kiểu dữ liệu>;

VD: 

 var    a,b,c:real;

           d,e,f:integer;

           .....

dự đoán: 

Writeln('15+ (8/2-3)*2 = ', 15 + (8/2-3)*2:4:2) xuất ra 15+ (8/2-3)*2 =17.00

Writeln('(7+5)*28/2 = ', (7+5)*2 — 8/2:4:2) xuất ra màn hình (7+5)*28/2 = ', (7+5)*28/2:4:2=168.00

Writeln('15 mod 2 = ',15 mod 2) xuất ra màn hình 15 mod 2 =1

Writeln(15 div 2) xuất ra màn hình 7

chọn ý A

16 div 5 thì bằng 3 (vì phép toán div chia lấy phần nguyên)

15-3=12

12/4=3

kết quả =3

program gia_tri_cua_bieu_thuc;

usrs crt;

var tong,a,b:integer;

begin

 clrscr;

 write('nhap gia tri cua a: ');readln(a);

 write('nhap gia tri cua b: ');readln(b);

 tong:=a*b;

 writeln('gia tri cua bieu thuc la: ',tong:4:0);

 readln;

end.

thứ tự là : B,A,D,C ạ

program tinh_cv_va_s;

uses crt;

var s,cv:real;

begin

 clrscr;

 cv:=(20+10)*2;

 s:=20*10;

 writeln('chu vi cua hinh chu nhat la: ',cv:4:2);

 writeln('dien tich cua hinh chu nhat la: ',s:4:2);

readln;

end.

Biến A chỉ số học sinh lớp 8a1 sẽ được khai báo kiểu dữ liệu số nguyên (integer)

program tinh_cv_va_s;

uses crt;

var dai,rong,s,cv:real;

begin

 clrscr;

 write('nhap chieu dai: ');readln(dai);

 write('nhap chieu rong: ');readln(rong);

 cv:=(dai+rong)*2;

 s:=dai*rong;

 writeln('chu vi cua hinh chu nhat la: ',cv:4:2);

 writeln('dien tich cua hinh chu nhat la: ',s:4:2);

readln;

end.

c5: c

c6: b

c7: a

c8: b

c9: c

c10: c

c11: b

c12: d

c13: b

c14: d

c15: ???

c16: a

c17: a or d

c18: d

c19: c

c20: d

c21: b

c22: b

c23: a

c24: c

program tinh_dien_tich_chu_vi;

uses crt;

var a,b,s,cv:real;

begin

 clrscr;

write('nhap do dai canh a: ');readln(a);

write('nhap do dai canh b: ');readln(b);

cv:=(a+b)*2;

s:=a*b;

writeln('chu vi cua nhinh chu nhat la: ',cv,' va dien tich cua hinh chu nhat la: ',s);

readln;

end.

program ct_tinh;

uses crt;

var a,b,c:integer;

      x,y:real;

begin

 clrscr;

write('nhap so a= ');readln(a);

write('nhap so b= ');readln(b);

write('nhap so c= ');readln(c);

x:=a+b+c;

y:=(a+b)*(a+b)/c;

writeln('x= ',x);

writeln('y= ',y);

readln;

end.

program ten_lop_trg;

uses crt;

begin

 clrscr;

 writeln(' < tên của bạn > ');

 writeln(' <lớp của bạn> '); 

 writeln(' <trường bạn đang học> ');

readln;

end.

program dien_tich_hinh_chu_nhat;

uses crt;

var   a,b:real;

begin

 clrscr;

 write('chieu dai hinh chu nhat: ');readln(a);

 write('chieu rong hinh chu nhat: ');readln(b);

 writeln('dien tich hinh chu nhat la: ',a*b);

readln;

end.