Question

[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).

Answer 1

[Bùi Anh Tuấn]

(------------------------------------------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;

Answer 2

[Nguyễn Lê Phước Thịnh]

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.