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.
Các câu hỏi dưới đây có thể giống với câu hỏi trê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.
SE
1
ML
10 tháng 5 2023
Dòng 3: Sai -> Sửa: var Y: longint; (cái này nếu sửa đúng là var Y: integer; nhưng nếu dùng như vậy biến Y sẽ bị tràn sẽ lớn hơn giá trị tối đa của integer gây ra lỗi cho chương trình khi chạy)
Dòng 4: Sai -> sửa: x: integer;
Dòng 6: Đúng -> Bổ sung: x:=100; (theo mình quan sát được nó nằm ở phần khai báo)
Dòng 10: Đúng -> Sửa: x:=x+10; (cái này có thể sửa hoặc không vì như thế nó cũng không sai)
Dòng 11: Sai -> Sửa: end;
Các dòng còn lại đều đúng và không có vấn đề để sửa.
KV
10 tháng 5 2023
Bài chính xác như vầy, em tự sửa lại trên giấy nhé!
Program baiso2;
Uses crt;
Var x,y:integer;
Begin
x:=100;
y:=0;
While x<1000 do
Begin
y:=y+x;
x:=x+10;
End;
Readln;
End.
AQ
2
18 tháng 2 2022
#include <bits/stdc++.h>
using namespace std;
long long i,t;
int main()
{
t=1;
for (i=1; i<=50; i++) t=t*i;
cout<<t;
return 0;
}
18 tháng 2 2022
CT này ko chạy đc nha bạn vì lũy thừa đến 21 (trong C++) đã ko tính đc r (bằng kiểu số nguyên)
H
1
25 tháng 6 2021
uses crt;
var a:array[1..1000]of integer;
n,i,k,min,vt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n=0 then writeln('Moi ban nhap lai')
else begin
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
writeln;
min:=a[1];
vt:=1;
for i:=1 to n do
if min>a[i] then
begin
min:=a[i];
vt:=i;
end;
writeln('So nho nhat la: ',min,' tai vi tri: ',vt);
write('Nhap k='); readln(k);
for i:=1 to n do
if i<>k then write(a[i]:4);
end;
readln;
end.
CL
0
BN
làm bài hộ mình voiwas ạ, mik cảm ơn trước! ngày sinh là 20/2/2008
0
7 tháng 11 2021
#include <bits/stdc++.h>
using namespace std;
double a,cv,dt;
int main()
{
cin>>a;
cv=a*4;
dt=a*a;
cout<<fixed<<setprecision(2)<<cv<<endl;
cout<<fixed<<setprecision(2)<<dt;
return 0;
}
Bài 1:
uses crt;
var a,i:integer;
begin
clrscr;
a:=0;
for i:=1 to 10 do a:=a+i;
writeln(a);
readln;
end.