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.
Dưới đây là một vài câu hỏi có thể liên quan tới câu hỏi mà bạn gửi lên. Có thể trong đó có câu trả lời mà bạn cần!
1 tháng 3 2022
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.
14 tháng 4 2022
#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;
}
A
15 tháng 4 2022
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.
MQ
31 tháng 3 2020
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
31 tháng 3 2020
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.
HD
4 tháng 4 2020
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 )
31 tháng 3 2022
#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;
}
31 tháng 3 2022
#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;
}
31 tháng 3 2022
#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;
}
21 tháng 10 2019
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
