Những câu hỏi liên quan
Tiểu yêu tinh cute
Xem chi tiết
Mai Uyên 8D
Xem chi tiết
nguyễn mạnh hiếu
5 tháng 12 2021 lúc 19:14

Var cv, dt : integer
r : real;
Const pi = 3.14;
Begin
r = 5.5;
dt := pi*r*r;
writeln(‘Dien tich hinh tron la:,dt:8:2’);
readln
End.

Bình luận (0)
Hoàn Trần
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 1 2022 lúc 23:00

Chọn B

Bình luận (0)
hfjsdhajdfhsjfhsdj
Xem chi tiết
Dark_Hole
18 tháng 2 2022 lúc 10:18

Tham khảo: 

program ct;

uses crt;

var a,b,h,S:integer;

begin clrscr;

   writeln('Nhap do dai hai day: '); readln(a,b);

   writel('Nhap chieu cao: '); readln(h);

     S:=h*((a+b)/2);

   writeln('Dien tich hinh thang do la: ',S);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
18 tháng 2 2022 lúc 10:40

uses crt;

var s,a,b,h:real;

begin

clrscr;

readln(a,b,h);

s:=(a+b)/2*h;

writeln(s:4:2);

readln;

end.

Bình luận (1)
Nguyến Ngọc Nguyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 2 2021 lúc 13:04

Câu 1:

-Đánh răng rửa mặt mỗi ngày

-Đi học

-Đi ngủ

Câu 2: 

a) Sai

Sửa lại: for i:=10 downto 1 do write('a');

b) Đúng

c) Đúng

Câu 3: 

Lặp n-1+1=n(lần)

Câu 4: 

S=15

Câu 5: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 10 do

  s:=s+i;

writeln('Tong cua 10 so tu nhien dau tien la: ',s);

readln;

end.

 

Bình luận (2)
Mai Nguyễn Gia Hân
Xem chi tiết
Nguyễn Ngọc Thiện Nhân
24 tháng 4 2023 lúc 9:34

a.for i:=1 to 10;do x:=x+1;

-> lệnh sai vì sau "to 10" không có dấu '' 

For<biến đếm > := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

Sửa lại:for i:=1 to 10 do x:=x+1;

b.for i:=10 to 1 do x:=x+1;

-> lệnh sai vì for i:=10 to 1 giá trị đầu phải nhỏ hơn giá trị cuối(10>1) nên  không lặp được.

Sửa for i:=1 to 10 do x:=x+1;

c.while i:=1 do t=10;

-> lệnh sai phép gán giá trị cho biến VD: x:=1

t=10(sai) thiếu dấu ':'  

Sửa lại:

while i:=1 do t:=10;

d.while a<=b;do write('b lon hon a');

-> lệnh sai vì Sau While a<=b không có ''(While <điều kiện> do <câu lệnh>) 

Sửa lại:

while a<=b do write('b lon hon a');

 

Bình luận (0)
HGFDAsS
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 12 2021 lúc 23:15

sai

if x>5 then a:=b

else m:=n;

Bình luận (0)
Yến Phạm
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 10 2021 lúc 0:10

Câu 1: C

Câu 6: C

Bình luận (0)
Phú Đức
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 11 2021 lúc 23:32

c: Lỗi sai là chữ var

Sửa lại const a=8;

Bình luận (0)