Những câu hỏi liên quan
Thap Nguyen
Xem chi tiết
Trần Đức Hải Phong
25 tháng 12 2023 lúc 16:51

program CompareNumbers;

var
  x, y: real;

begin
  // Bước 1: Nhập 2 số thực x và y từ bàn phím
  write('Nhap so thuc x: ');
  readln(x);

  write('Nhap so thuc y: ');
  readln(y);

  // Bước 2: So sánh x và y, in ra số lớn hơn
  if x > y then
    writeln('x lon hon y')
  else if x < y then
    writeln('y lon hon x')
  else
    writeln('x bang y');

  readln;
end.


(khoog bt đúng ko)

Bình luận (0)
Nguyễn Thị Ánh Ngọc
Xem chi tiết
Vương Duy Quang
Xem chi tiết
lynn?
8 tháng 5 2022 lúc 20:09

C

Bình luận (0)
ka nekk
8 tháng 5 2022 lúc 20:10

c

Bình luận (0)
Trương Quỳnh Như
8 tháng 5 2022 lúc 20:10

C

Bình luận (0)
Thành Điền Lê Nguyễn
Xem chi tiết
Minh Nhân
4 tháng 2 2021 lúc 8:25

#TK

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=3 to 97 do

s:=s+i;

write(s);

readln;

end.

 

Bình luận (0)
Nguyễn Lê Phước Thịnh
4 tháng 2 2021 lúc 12:56

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=3 to 97 do 

  s:=s+i;

writeln(s);

readln;

end.

Bình luận (0)
Tuấn Nguyễn
6 tháng 2 2021 lúc 10:50

b1;tim ssh cua day so cach deu tren cong thuc lop 5:(97-3):khoang canh +1; :))

b2;tinh tong bang cong thuc lop 5 sau : tong=(so dau + so cuoi)*ssh/2;

b3; xuat ra :))) 

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

Câu 1: B

Câu 2: A

Bình luận (0)
Hùng
Xem chi tiết
Duong Nguyen
14 tháng 10 2022 lúc 22:22

Câu 1 .C

Câu 2 .C

Câu 3 . C

Câu 4 . D

Câu 5 . A

Câu 6 . B

Câu 7 . D

Câu 8 . A

Câu 9.  A

Câu 10 . C

Bình luận (0)
Huyền Nguyễn
Xem chi tiết
phạm
3 tháng 3 2022 lúc 19:05

\(C\) NHÉ

Bình luận (0)
Chuu
3 tháng 3 2022 lúc 19:05

C

Bình luận (0)
Vũ Trọng Hiếu
3 tháng 3 2022 lúc 19:05

c

Bình luận (0)
nam anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 3 2022 lúc 14:45

uses crt;

var i,j,kt:integer;

begin

clrscr;

for i:=100 to 1 do write(i:4);

writeln;

for i:=2 to 100 do 

  begin

kt:=0;

for j:=2 to trunc(sqrt(i)) do

  if i mod j=0 then kt:=1;

if kt=0 then write(i:4);

end;

readln;

end.

Bình luận (0)
lê nhật hòa
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 1 2022 lúc 13:43

Câu 1: C

Câu 2: A

Câu 3: A

Câu 4: A

Câu 5: A

Câu 55: B

Câu 53: A

Câu 50:D 
Câu 51: D

Bình luận (0)