1 trả lời
Em hãy trình bày khái niệm thuật toán [Tin học - Lớp 6]
1 trả lời
Thuật toán là gì? [Tin học - Lớp 6]
2 trả lời
Cách dán Code vào trong Pascal [Tin học - Lớp 8]
1 trả lời
Để thay đổi kích thước nét vẽ bạn dùng lệnh gì? [Tin học - Lớp 5]
1 trả lời
Program bai1;
uses crt;
var a,b: integer;
begin
clrscr;
write['nhap so a =']; readln[a];
write['nhap so b =']; readln[b];
writeln['tich cua a va b =',a*b];
readln;
end.
viết chương trình nhập vào 2 số nguyên a và b. In ra màn hình giá trị lớn nhất. Giup mình với ạ
Viết chương trình nhập vào 2 số nguyên a và b. In ra màn hình giá trị lớn nhất.
uses crt;
var a,b:integer;
begin
clrscr;
write['a=']; readln[a];
write['b=']; readln[b];
if a=b then writeln['vui long nhap hai so khac nhau']
else if a>b then writeln['so lon nhat la: ',a]
else writeln['so lon nhat la: ',b];
readln;
end.
...Xem tất cả bình luận
uses crt;
var a,b:integer;
begin
clrscr;
write['a=']; readln[a];
write['b=']; readln[b];
if a=b then writeln['vui long nhap hai so khac nhau']
else if a>b then writeln['so lon nhat la: ',a]
else writeln['so lon nhat la: ',b];
readln;
end.
uses crt;
var a,b:integer;
begin
clrscr;
write['a=']; readln[a];
write['b=']; readln[b];
if a=b then writeln['vui long nhap hai so khac nhau']
else if a>b then writeln['so lon nhat la: ',a]
else writeln['so lon nhat la: ',b];
readln;
end.
uses crt;
var a,b:integer;
begin
clrscr;
write['a=']; readln[a];
write['b=']; readln[b];
if a=b then writeln['vui ***g nhap hai so khac nhau']
else if a>b then writeln['so *** nhat la: ',a]
else writeln['so *** nhat la: ',b];
readln;
end.
uses crt; var a,b:integer; begin clrscr; write['a=']; readln[a]; write['b=']; readln[b]; if a=b then writeln['vui long nhap hai so khac nhau'] else if a>b then writeln['so lon nhat la: ',a] else writeln['so lon nhat la: ',b]; readln; end.
Viết chương trình giải ptrinh tìm số lớn nhất trong 3 số nguyên a, b, c [ a,b,c nhập từ bàn phím ]
uses crt;
var a,b:integer;
begin
clrscr;
write['a=']; readln[a];
write['b=']; readln[b];
if a=b then writeln['vui ***g nhap hai so khac nhau']
else if a>b then writeln['so *** nhat la: ',a]
else writeln['so *** nhat la: ',b];
readln;
end.
Câu hỏi hot cùng chủ đề
-
hằng là gì ? nêu cú pháp khai báo hằng
Trả lời [16] Xem đáp án »
-
Hỏi từ APP VIETJACK
Đâu là các từ khóa:A.Program,end,beginB.Program,end,begin,Readln,lop8aC.Program,then,mot,hai,bà
D.lop82,uses,begin,end
- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
Viết chuơng trình pascal nhập vào 2 số nguyên a và b từ bàn phím và in ra màn hình tích của 2 số đó?
Các câu hỏi tương tự