Những câu hỏi liên quan
Nguyễn Đức Hiếu
Xem chi tiết
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

 

Minh Lệ
Xem chi tiết
Quoc Tran Anh Le
18 tháng 11 2023 lúc 17:08

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.

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

Nguyên Huỳnh
Xem chi tiết
Nguyễn Lê Phước Thịnh
29 tháng 1 2023 lúc 15:44

uses crt;

var a,b:real;

begin

clrscr;

readln(a,b);

writeln(a*a*a+b*b*b+a*b);

readln;

end,

Nguyên Huỳnh
Xem chi tiết
Nguyễn Lê Phước Thịnh
29 tháng 1 2023 lúc 15:44

uses crt;

var a,b:real;

begin

clrscr;

readln(a,b);

writeln(a*a*a+b*b*b+a*b);

readln;

end,

Phúc 8A3 Trịnh Tuan
Xem chi tiết
Phúc 8A3 Trịnh Tuan
8 tháng 10 2021 lúc 9:22

giúp mình với mn ơi

 

Huy Hoang Nguyen
Xem chi tiết