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
Minh Lệ
Xem chi tiết
Quoc Tran Anh Le
18 tháng 11 2023 lúc 17:08

Trần Minh Huy
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 11 2021 lúc 15:12

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

Nguyễn Quốc Bình An
7 tháng 11 2021 lúc 15:55

a

 

nguyễn văn kiên
Xem chi tiết
Huỳnh Nhất Đăng
Xem chi tiết
Nguyễn Lê Phước Thịnh
31 tháng 12 2021 lúc 14:33

Chọn B

qlamm
31 tháng 12 2021 lúc 14:33

b

Kim Thái
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 11 2021 lúc 23:27

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

Đào Quyền
Xem chi tiết
Ly Phạm
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 10 2021 lúc 0:16

Câu 1: A

Câu 2: A

Câu 3: A

Nguyễn Thị Huyền
7 tháng 10 2021 lúc 8:14

undefined

Lan Anh Vũ Hoàng
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 11 2021 lúc 23:55

a: int m;

double q;

Thái Hồng Sương
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 20:42

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

s:real;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

s:=1;

for i:=1 to n do 

  s:=s*a[i];

writeln('Tich la: ',s:0:0);

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Trung binh la: ',t/n:4:2);

readln;

end.

Nam Trịnh bảo
Xem chi tiết
Mai Nguyễn Tuấn Anh
20 tháng 1 2022 lúc 20:19

Uses crt;
Var
      n,t:longint;
BEGIN
      Read(n);
      While n<>0 do
            Begin
                 t:=t+n mod 10;
                 n:=n div 10;
            End;
       Write(t);
Readln;
END.

 


 

Lê Phương Mai
20 tháng 1 2022 lúc 20:20

Refer:

Program baitap;

Uses crt;

Var n,x,T:integer;

Begin

Clrscr;

T:=0;

Write('n='); Readln(n);

While ( N <> 0 ) do

     Begin

     x := n mod 10;

     n := n div 10;

     T := T + x; 

     End;

Writeln('T=',T);

Readln

End.

Đỗ Tuệ Lâm
20 tháng 1 2022 lúc 20:48

undefined