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.

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

24 tháng 12 2022

Câu 2:

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n>0 && n%5==0) cout<<"Phai";

else cout<<"Khong phai";

}

uses crt;

var a:array[1..5]of integer;

i,max:integer;

begin

clrscr;

for i:=1 to 5 do 

  begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

for i:=1 to 5 do 

  if max<a[i] then max:=a[i];

writeln(max);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long a,b,c,d,t;

int main()

{

cin>>a>>b>>c>>d;

t=a+b+c+d;

cout<<t;

return 0;

}

22 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b,t,i;

int main()

{

cin>>a>>b;

t=0;

for (i=a; i<=b; i++)

if (i%3==0) t=t+i;

cout<<t;

return 0;

}

28 tháng 9 2017

Ta có: 1/2=12/24 ; 3/4=12/16 ; 4/5=12/15

Ta coi A là 24 phần, B là 16 phần thì C là 15 phần.

Vậy số lớn nhất là A thì số bé nhất là C

A là:

              234:(24-15)x24=624

C là:

              624-234=390

B là:

              390x4/5=312

28 tháng 9 2017

suy ra  a = 12 phần

            b = 8 phan

            c = 7.5 phần

 hiệu số phần bằng nhau là : 12 - 7.5 = 4.5 (phần)

 1 phần là : 234 :4.5 = 52 (phần)

 số A là : 52 * 12 = 624 

  số B là : 52 * 8 = 413

  số C là : 52 * 7.5 = 390

  Vậy số A là 624 ; số B là 413 ; số C là 390 .