Tin học Số lớn nhất trong 3 số a, b, c

[diemlinhphuong]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Mấy bạn cho mk xin các bước viết chương trình trong pascal vs đề bài: tìm số lớn nhất trong 3 số a,b,c
giúp vs nhé, mai mk kt òi

 

[Dưa Chuột]

Mấy bạn cho mk xin các bước viết chương trình trong pascal vs đề bài: tìm số lớn nhất trong 3 số a,b,c
giúp vs nhé, mai mk kt òi

Var
so1,so2,so3,max:Integer;
Begin
Writeln(′TIM SO LON NHAT TRONG 3 SO NGUYEN′);
Write(′Nhap so thu nhat: ′);
Readln(so1);
Write(′Nhap so thu hai : ′);
Readln(so2);
Write(′Nhap so thu ba : ′);
Readln(so3);
If so1 < so2 Then
max:=so2
Else
max:=so1;
If max < so3 Then
max:=so3;
Writeln;
Writeln(′+So lon nhat trong 3 so la: ′,max);
Writeln;
Writeln(′Bam phim <Enter> de ket thuc′);
Readln
End.

 

[ĐứcNhật!]

Mấy bạn cho mk xin các bước viết chương trình trong pascal vs đề bài: tìm số lớn nhất trong 3 số a,b,c
giúp vs nhé, mai mk kt òi

Program Tim_max;
Uses crt;
Var a,b,c,max: longINT;
Begin
clrscr;
Writeln('Nhap a: '); readln(a);
Write('Nhap b: '); readln(b);
Write('Nhap c: '); readln(c);
max:=a;
If b>max then max:=b Else max:=a;
If c>max then max:=c;
Write('So lon nhat la: ',max);
Readln
End.