Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

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.

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

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.

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.

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.

 

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');

 

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;

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

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;