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.
uses crt;
var st:array[1..100]of string;
a,b,c:array[1..100]of real;
i,n:integer;
max:real;
begin
clrscr;
readln(n);
for i:=1 to n do readln(st[i],a[i],b[i],c[i]);
max=(a[1]+b[1]+c[1])/3;
for i:=1 to n do
if (max<(a[i]+b[i]+c[i])/3) then max:=(a[i]+b[i]+c[i])/3;
writeln(max:4:2);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long a[10],n=10,i,ln;
int main()
{
for (i=1; i<=n; i++) cin>>a[i];
ln=a[1];
for (i=1; i<=n; i++) ln=max(ln,a[i]);
cout<<ln<<endl;
if (ln%2==0) cout<<"Phai";
else cout<<"Khong phai";
return 0;
}
program bt;
uses crt;
var i, max : integer;
a : array[1..10] of integer;
begin
clrscr;
for i:=1 to 10 do begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
max := 0;
for i:=1 to 10 do if a[i] > max then max := a[i];
if (max mod 2 = 0) then write(max,' la so lon nhat va la so chan')
else write(max,' la so lon nhat va la so le');
readln
end.
Program Sosanhdiem;
uses crt;
var a,b,c: byte;
begin
clrscr;
writeln('Nhap lan luot so diem cua 3 ban'); readln(a,b,c);
if a>b >c then write(' Diem cua 3 ban xep theo thu tu tu lon de be la ', a, ' , ' , b , ' , ' ,c ) else
if a>c >b then write(' Diem cua 3 ban xep theo thu tu tu lon de be la ', a, ' , ' , c , ' , ' ,b ) else
if b>a >c then write(' Diem cua 3 ban xep theo thu tu tu lon de be la ', b, ' , ' , a , ' , ' ,c ) else
if b>c >a then write(' Diem cua 3 ban xep theo thu tu tu lon de be la ', b, ' , ' , c , ' , ' ,a ) else
if c>a >b then write(' Diem cua 3 ban xep theo thu tu tu lon de be la ', c, ' , ' , a , ' , ' ,b ) else
if c>b >a then write(' Diem cua 3 ban xep theo thu tu tu lon de be la ', c, ' , ' , b , ' , ' ,ba) else
if c>a and a=b then write(' Diem cua 3 ban xep theo thu tu tu lon de be la ', c, ' , ' , a , ' , ' ,b ) else
if c<a and a=b then write(' Diem cua 3 ban xep theo thu tu tu lon de be la ', b, ' , ' , a , ' , ' ,c ) else
if b>a and a=c then write(' Diem cua 3 ban xep theo thu tu tu lon de be la ', b, ' , ' , a , ' , ' ,c ) else
if b<a and a=c then write(' Diem cua 3 ban xep theo thu tu tu lon de be la ', c, ' , ' , a , ' , ' ,b ) else
if a>c and c=b then write(' Diem cua 3 ban xep theo thu tu tu lon de be la ', a, ' , ' , c, ' , ' ,b ) else
if a<c and c=b then write(' Diem cua 3 ban xep theo thu tu tu lon de be la ', c, ' , ' , b , ' , ' ,a ) else
if a = b =c then write('Diem cua 3 ban bang nhau');
Readln;
end.
Chúc bạn học tốt
uses crt;
var a:array[1..3]of real;
tam:real;
i,j:integer;
begin
clrscr;
for i:=1 to 3 do
begin
repeat
write('so diem cua ban thu ',i,' la: '); readln(a[i]);
if (a[i]<0) or (a[i]>10) then writeln('vui long nhap lai');
until (a[i]>=0) and (a[i]<=10);
end;
for i:=1 to 2 do
for j:=i+1 to 3 do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('so diem cua 3 ban xep theo thu tu tu nho den lon la: ');
for i:=1 to 3 do
write(a[i]:4:2,' ');
readln;
end.
Cú pháp:
While < điều kiện > do < câu lệnh >; Trong đó: - Điều kiện thường là một phép so sánh - Câu lệnh có thể là câu lệnh đơn giản hay câu lệnh ghép. Câu lệnh lặp này được thực hiện như sau: (Hoạt động) (1) Kiểm tra điều kiện: (2) Nếu điều kiện SAI, câu lệnh sẽ bị bỏ qua và chuyển sang câu lệnh tiếp theo trong chương trình. Nếu điều kiện ĐÚNG, thực hiện câu lệnh và quay lại bước (1 )#include <bits/stdc++.h>
using namespace std;
long long n,i,x,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0) dem++;
}
cout<<dem;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
int n,i,x,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0) dem++;
}
cout<<dem;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
int n,i,x,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0) dem++;
}
cout<<dem;
return 0;
}
Mik giải đúng ko ạ? Bạn nào xem hộ mik với🙏
Program tinhtientaxi;
Uses crt;
Var x:integer;
Begin
Clrscr
Write('hay nhap so km:');
Readln(x);
If x>= 11 then write(x*6000)
Else write(x*7000);
Readln;
End.
nè pro