K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

18 tháng 1 2017

program giatrilonnhat;

vả a,b,c,max:integer;

begin

writeln(nhap a,b,c=');

readln(a,b,c);

max:=a;

ì max<b then max:=b;

if max<c then max:=c;

writeln('gia tri lon nhat la', max);

readln

end.

18 tháng 1 2017

dòng thứ hai cho mình sửa chữ var

dòng thứ ba thiếu dấu '

dòng 6 sửa chữ if

6 tháng 12 2016

Tìm số lớn nhất

= MAX ( a,b,c)

Tìm số nhỏ nhất

= MIN ( a,b,c)

16 tháng 9 2021

uses crt;

var a,b,c,max:integer;

begin

clrscr;

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

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

write('Nhap c:'); readln(c);

max:=-32000;

if max<a then max:=a;

if max<b then max:=b;

if max<c then max:=c;

writeln(max);

readln;

end.

uses crt;

var a,b,c,max:integer;

begin

clrscr;

readln(a,b,c);

max:=a;

if max<b then max:=b;

if max<c then max:=c;

writeln(max);

readln;

end.

2 tháng 11 2016

à, bài này mk bik nè

 

Program So_Lon_Nhat;

uses crt;

var a,b,c:integer;

Begin

Writeln(' Nhap 3 so nguyen:');

Readln(a,b,c);

if (a>b) and (a>c) then write(' a la so lon nhat');

if (b>a) and (b>c) then write('b la so lon nhat');

if (c>a) and (c>b) then write('c la so lon nhat')

else write(' khong co so nao lon nhat');

Readln;

End.

Vì pascal ko vik dấu dc nên ỡ đây mk cx ko vik dấu ^^ tự hỉu nha ^^

5 tháng 11 2016

à, bạn ơi, khi viết ct có thể qua program, với lại bạn thiếu chấm phẩy, cái readln trên từ end ko cần chấm phẩy cũng ko sao

2 tháng 3 2021

=Tổng(a-b)

=Tổng(a-c)

=Tổng(b-c)

 

2 tháng 3 2021

bạn ơi bạn có thể giải rõ giúp mình được không ạ

3.1
Input: 100 số tự nhiên đầu tiên

Output: Tổng của chúng

3.2: 

Input: hai số x,y

Output: Giá trị của hai số sau khi hoán đổi

4 tháng 1 2022

Bước 1: Nhập a,b,c

Bước 2: ln←a;

Bước 3: Nếu ln<b thì ln←b;

Bước 4: Nếu ln<c thì ln←c;

Bước 5: Xuất ln

Bước 6: Kết thúc
cre : Nguyễn Lê Phước Thịnh

19 tháng 4 2023

đúng ko vậy bạn

 

 

3 tháng 1 2021

B1. Nhập ba số a,b,c;

B2. Max <-- a;

B3. Nếu Max < b thì Max <-- b;

B4. Nếu Max < c thì Max <-- c;

B5. Xuất Max và kết thúc

Bước 1: Nhập a,b,c

Bước 2: ln←a;

Bước 3: Nếu ln<b thì ln←b;

Bước 4: Nếu ln<c thì ln←c;

Bước 5: Xuất ln

Bước 6: Kết thúc

14 tháng 4 2022

Tham khảo:

undefined