Một số khái niệm cơ bản của tin học

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Dung

b1: nhập 2 số nguyên a, b
b2: nếu a>b thì a <- a-b
b3: nếu b>a thì b <- b-a
b4: đưa ra a, b rồi kttt
*cho a=3, b=3
kết qả a=b=3 hay a=b=0 z mn, giúp mik vs

Phương Anh (NTMH)
15 tháng 11 2016 lúc 13:59

Program So_nguyen;

uses crt;

Var a,b,t:integer;

Begin

clrscr;

Writeln(' Nhap 2 so nguyen a va b:');

if a>b then t:= a-b;

if a<b then t:=b-a;

if a=b then t:=0;

Writeln(' Ket qua la',t);

Readln;

End.


Các câu hỏi tương tự
9/2 Ngân
Xem chi tiết
Huỳnh Lê Thảo Nguyênn
Xem chi tiết
Đặng Lê Uyên Nhy
Xem chi tiết
Phùng Khánh Linh
Xem chi tiết
Đặng Lê Uyên Nhy
Xem chi tiết
Hiii
Xem chi tiết
Movie just
Xem chi tiết
Hân Bùi
Xem chi tiết
Hiền Phạm
Xem chi tiết