Viết chương trình nhập vào từ bàn phím 2 số nguyên a b

uses crt;

var a,b:integer;

begin

clrscr;

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

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

writeln('Tong cua hai so la: ',a+b);

writeln('Hieu cua hai so la: ',a-b);

writeln('Tich cua hai so la: ',a*b);

writeln('Thuong cua hai so la: ',a/b:4:2);

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 (15) 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

Để viết chữ trong logo Em sử dụng lịch gì (Tin học - Lớp 5)

4 trả lời

Một thủ tục trong Logo gồm có mấy phần (Tin học - Lớp 5)

2 trả lời

Nêu các bước để chọn hướng in? (Tin học - Lớp 7)

1 trả lời

Đề cương ôn tập Tin học 7 (Tin học - Lớp 7)

1 trả lời

Viết chương trình pascal tính tổng (Tin học - Lớp 8)

1 trả lời

Viết chương trình pascal tính tổng (Tin học - Lớp 8)

1 trả lời

Để viết chữ trong logo Em sử dụng lịch gì (Tin học - Lớp 5)

4 trả lời

Một thủ tục trong Logo gồm có mấy phần (Tin học - Lớp 5)

2 trả lời

Nêu các bước để chọn hướng in? (Tin học - Lớp 7)

1 trả lời

Đề cương ôn tập Tin học 7 (Tin học - Lớp 7)

1 trả lời

Viết chương trình pascal tính tổng (Tin học - Lớp 8)

1 trả lời

Viết chương trình pascal tính tổng (Tin học - Lớp 8)

1 trả lời