Tin học pascal: cấu trúc rẽ nhánh

[Lê Thị Hàn]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Bài 3: Viết chương trình nhập vào x, tính y = x-1 nếu x>=1, ngược lại y = 1-x
mọi người ơi ai biết làm, giúp mình với, mình cảm ơn trc ạ

 

[ĐứcNhật!]

Bài 3: Viết chương trình nhập vào x, tính y = x-1 nếu x>=1, ngược lại y = 1-x
mọi người ơi ai biết làm, giúp mình với, mình cảm ơn trc ạ

Program Tinh;
Uses crt;
Var x,y: longint;
Begin
clrscr;
Write('Nhap x: '); readln(x);
If x>=1 then y:=x-1
Else y:= 1 - x;
Write('Tong la: ',y);
Readln
End.