Chương trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Minh Anh

giúp mình với các bạn ơi !!! :(( CẢM ƠN NHIỀU Ạ!!

VIẾT CHƯƠNG TRÌNH TRÊN PASCAL ĐỂ GIẢI QUYẾT CÁC CÔNG VIỆC SAU:

1. TÌM GIÁ TRỊ LỚN NHẤT, NHỎ NHẤT CỦA 2,3 SỐ NGUYÊN

2. TÍNH TỔNG CÁC SỐ TỪ M ĐẾN N

3. TÍNH TỔNG CÁC SỐ CHẲN, LẺ CHIA HẾT CHO 2 HOẶC 3 TỪ M ĐẾN N (M,N LÀ SỐ NGUYÊN DƯƠNG NHẬP TỪ BÀN PHÍM, N>M).

Bùi Anh Tuấn
2 tháng 12 2019 lúc 20:50

(------------------------------------------1--------------------------------------)

program bai_1;

uses crt;

var a,b,c,max: real;

begin

clrscr;

writeln(' nhap 3 so:'); readln(a,b,c);

max:=a;

max:=b;

max:=c;

if max<a then max:=a;

if max<b then max:=b;

if max<c then max:=c;

writeln(' so lon nhat la:',max):

readln;

end.

mình tách ra nhé.

program bai_1;

uses crt;

var a,b,c,min: real;

begin

clrscr;

writeln(' nhap 3 so:'); readln(a,b,c);

min:=a;

min:=b;

min:=c;

if min<a then min:=a;

if min<b then min:=b;

if min<c then min:=c;

writeln(' so lon nhat la:',min):

readln;

Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
2 tháng 12 2019 lúc 21:08

1:

uses crt;

var a,b,c,ln,nn:integer;

begin

clrscr;

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

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

write('c='); readln(c);

ln:=a;

nn:=a;

if ln<b then ln:=b;

if ln<c then ln:=c;

if nn>b then nn:=b;

if nn>c then nn:=c;

writeln('so lon nhat la: ',ln);

writeln('so nho nhat la: ',nn);

readln;

end.

2:

uses crt;

var m,n,i,t:integer;

begin

clrscr;

write('m='); readln(m);

write('n='); readln(n);

if (m<n) and (m>0) and (n>0) then

begin

t:=0;

for i:=m to n do

t:=t+i;

writeln('tong cua cac so tu ',m,' toi ',n,' la: ',t);

end

else writeln('vui long nhap lai');

readln;

end.

Khách vãng lai đã xóa
Bùi Anh Tuấn
2 tháng 12 2019 lúc 20:50

bài 2 nhập m,n từ bàn phím à

Khách vãng lai đã xóa
Bùi Anh Tuấn
2 tháng 12 2019 lúc 21:02

(---------------------------------2----------------------------------------)

program bai_2;

uses crt;

var m,n,i,s: integer;

begin

clrscr;

writeln(' nhap 2 so:'); readln(m,n);

s:=0;

for i:=m to n do

s:=s+i;

writeln(' tong bang:',s);

readln;

end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Thái Bảo
Xem chi tiết
Hoàng lĩnh
Xem chi tiết
Nguyễn Thị Tươi
Xem chi tiết
Anh Phạm
Xem chi tiết
Trần Vi Nam Khánh
Xem chi tiết
Tran Anh
Xem chi tiết
Lê Thị Bảo Trâm
Xem chi tiết
Vân Ngô
Xem chi tiết
Bảo Văn
Xem chi tiết