Cho e hỏi có cách nào viết chương trình so sánh 4 số mà chỉ dùng 2 câu If...then không ạ?
Những câu hỏi liên quan
6 tháng 4 2023 lúc 21:36
Viết chương trình Pascal nhập vào 2 số a, b in ra màn hình số lớn hơn. Dùng câu lệnh if... then...
Program HOC24;
var a,b: integer;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
if a> b then write(a);
if a<b then write(b);
if a=b then write('2 so bang nhau');
readln
end.
Đúng 1
Bình luận (0)
6 tháng 4 2023 lúc 21:38
Viết chương trình Pascal nhập vào 2 số a, b in ra màn hình số lớn hơn. Dùng câu lệnh if... then... else…
Var a,b:real;
Begin
Write('a = ');readln(a);
Write('b = ');readln(b);
If a > b then write('So lon la ',a:10:2)
Else if b > a then write('So lon la ',b:10:2)
Else write('Hai so bang nhau');
Readln;
End.
Đúng 1
Bình luận (2)
Câu 1 .Viết chương trình sử dụng chương trình con xác định tham số có trong chương trình con X Câu 2 lập trình nhập 2 xâu không quá 100 và so sánh 2 xâu
Viết chương trình Pascal nhập vào 2 số a, b in ra màn hình số lớn hơn. Dùng câu lệnh if... then... else…
Giải chi tiết giúp mình nhé
Program solonhon;
var a,b: integer;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
if a> b then write(a);
if a<b then write(b);
if a=b then write('2 so bang nhau');
readln
end.
Đúng 2
Bình luận (0)
Program HOC24;
var a,b: integer;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
if a>b then write(a) else write(b);
readln
end.
Đúng 2
Bình luận (2)
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
if a>b then write(a)
else write(b);
readln;
end.
Đúng 1
Bình luận (0)
Có một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
Program Soam Soduong;
uses crt
var A, B: integer;
Begin
clrscr;
writeln(Nhap so A: );
readln(A);
if A > 0 then writeln(A,’ la so duong ‘);
else writeln(A,‘ la so am ’);
readln;
End.
Mn ơi viết cho mik một chương trình pascal có đủ các câu lệnh sau : Cl điều kiện(If... then... else) , Cl lặp(for...to.. do) , Cl lặp vs số lần chưa biết trước ( While... do) vs ạ Mik cảm ơn trc ạ
program day_du_cau_lenh;
uses crt;
var i,n:integer;
a:array[1..100]of intrger;
begin
clrscr;
write('nhap so n:');readln(n);
i:=1;
while i<=n do
begin
write('nhap a[',i,']:');readln(a[i]);
i:=i+1;
end;
for i:=1 to n do
if a[i]>=0 then write(a[i]) else write('');
readln;
end.
Đúng 0
Bình luận (0)
Cho đoạn chương trình sau:If ab then a :b ;If ac then a :c ;Writeln(a) ; Hỏi nếu a : 7 ; b : 6 ; c : 8 ; khi kết thúc chương trình sẽ in ra màn hình nội dung gì ?(1 Điểm) Không có thông tin nào hiển thị trên màn hình867
Đọc tiếp
Cho đoạn chương trình sau:
If a>b then a :=b ;
If a>c then a :=c ;
Writeln(a) ;
Hỏi nếu a := 7 ; b := 6 ; c := 8 ; khi kết thúc chương trình sẽ in ra màn hình nội dung gì ?
(1 Điểm)
Không có thông tin nào hiển thị trên màn hình
8
6
7
Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
program So_Sanh;
usescrt;
var A, B= integer;
Begin
clrscr;
writeln(‘Nhap so A: ’); readln(A);
writeln(‘Nhap so B: ‘); readln(A);
if A <> B then writeln(A,’ khac ‘,B) else writeln(B,’ = ‘,A)
readln;
End.
cho e hỏi1 chút là 12345678910 số nào số nhiều , số nào số lẻ ạ
cái này nó ko có trong chương trình lớp 1 nhưng mà ah của e cứ đố e cái câu này (hazz) mong ah cj dúp e
e cảm ơn ạ
số lẻ:13579. số nhiều:10
số lẻ là 13579 số nhiều là 10
So le : 1 , 3, 5 ,7 ,9.
So nhieu : 10.
So chan : 0 , 2 , 4 , 6 , 8. ( cai nay chi bo sung them cho em nha ).
Xem thêm câu trả lời