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
3i3 congaf
Xem chi tiết
TLVHieu
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 12 2020 lúc 11:50

1: 

Xác định bài toán:

-Input: Hai số thực a,b(a≠b)

-Output: So sánh a và b

Mô tả thuật toán

-Bước 1: Nhập a và b

-Bước 2: Nếu a>b thì viết a lớn hơn b

Ngược lại thì a nhỏ hơn b

-Bước 3: Kết thúc

Viết chương trình:

uses crt;

var a,b:real;

begin

clrscr;

repeat

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

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

until (a<>b);

if a>b then writeln(a,' lon hon ',b)

else writeln(a,' nho hon ',b);

readln;

end.

2: 

Xác định bài toán: 

-Input: Hai số thực a,b(a≠b)

-Output: Tìm số lớn hơn

Mô tả thuật toán

-Bước 1: Nhập a,b

-Bước 2: Nếu a>b thì viết a lớn hơn b

Ngược lại thì viết b lớn hơn a

-Bước 3: Kết thúc

Viết chương trình: 

uses crt;

var a,b:real;

begin

clrscr;

repeat

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

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

until (a<>b);

if a>b then writeln(a,' lon hon ',b)

else writeln(b,' lon hon ',a);

readln;

end.

40. Cao Nguyên Việt
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 11 2021 lúc 23:30

b: 

Input: a,b

Output: UCLN(a,b)

Thảo
Xem chi tiết
Nguyễn Tiến  Đạt
Xem chi tiết
Nguyễn Tiến  Đạt
Xem chi tiết
huỳnh thy
Xem chi tiết
nguyễn thị mai hương
Xem chi tiết
Nhân_ 8C
Xem chi tiết
Long Tran
29 tháng 12 2021 lúc 7:19

Thuật toán:

B1: Nhập số nguyên n

B2: Nếu n >0 thì in ra màn hình n là số dương; nếu n <0 thì in ra màn hình n là số âm; nếu n = 0 thì in ra màn hình n không dương cũng không âm.

B3. Kết thúc

Chương trình:

uses crt;

var n: integer;

begin

write('Nhap so N: '); readln(n);

if n > 0 then writeln(n,' la so nguyen duong') else if n = 0 then writeln(n,' khong la so am cung khong la so duong') else writeln(n, ' la so nguyen am');