K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

11 tháng 12 2021

giúp Mình vs.

Mình cần gấp lắm

 

11 tháng 12 2021

Chỉ cần hai biến a,b kiểu nguyên là đủ rồi

30 tháng 12 2020

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.

27 tháng 10 2021

Hai thuật toán đó sẽ ngược nhau

27 tháng 11 2021

cái này hỏi cảm nghĩ của bạn mà bạn lại đi hỏi người khác. Ai biết bạn thích phần nào mà trả lời

a: n=10

b: uses crt;

var i,s,n:integer;

begin

clrscr;

s:=0; 

for i:=1 to 4 do s:=s+i;

write(s);

readln;

end.