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
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.

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")

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

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

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

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.

 

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.

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 :))) 

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.

foxbi
Xem chi tiết
HT.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.

Trần Đức Hải Phong
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.

Thiên Yết
Xem chi tiết