Những câu hỏi liên quan
Duy Thai Bui
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 12 2021 lúc 8:19

uses crt;

var t,s:real;

begin

clrscr;

readln(t,s);

writeln('a=',(t+s)/2);

writeln('b=',(t-s)/2);

readln;

end.

Bình luận (0)
Anhthuwliz
Xem chi tiết
Bảo Nam
2 tháng 6 2022 lúc 8:11

a = int(input())
b = int(input())
c = int(input())
if a**2+b**2==c**2:
    print(a,b,c,"la ba canh cua tam giac")
elif a**2+c**2==b**2:
    print(a,b,c,"la ba canh cua tam giac")
elif b**2+c**2==a**2:
    print(a,b,c,"la ba canh cua tam giac")
else:
    print(a,b,c,"khong la ba canh cua tam giac")

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)
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)
lê nhật hòa
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 1 2022 lúc 10:29

Câu 1: C

Câu 2: A

Câu 3: A

Câu 4: A

Câu 55: B

Câu 54: D

Bình luận (0)
Thành Điền Lê Nguyễn
Xem chi tiết
Quang 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)
foxbi
Xem chi tiết
Kiều Vũ Linh
18 tháng 3 2023 lúc 7:55

 Var i,n:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

s:=s+i;

Write('Tong la ',s);

Readln;

End.

Bình luận (0)
foxbi
Xem chi tiết
Thanh Phong (9A5)
18 tháng 3 2023 lúc 7:00

Uses crt;

var n,i,x,u: integer;

begin clrscr;

readln(n);

for i:=1 to n do begin

readln(x);

u:=u+x;

end;

writeln(u);

readln;

end.

Bình luận (0)
BOXWICKED
25 tháng 12 2023 lúc 16:54

program TongCacSoNguyen;

var
  N, i, soNguyen, tong: integer;

begin
  // Nhập số lượng N
  write('Nhap so luong N: ');
  readln(N);

  // Khởi tạo tổng
  tong := 0;

  // Nhập và tính tổng các số nguyên
  for i := 1 to N do
  begin
    write('Nhap so nguyen thu ', i, ': ');
    readln(soNguyen);
    tong := tong + soNguyen;
  end;

  // In ra màn hình tổng
  writeln('Tong cua cac so nguyen la: ', tong);

  readln;
end.

Bình luận (0)
Thiên Yết
Xem chi tiết