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.

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.

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.

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;

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;

}

19 tháng 10 2021

lỗi

19 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

double a;

int main()

{

cin>>a;

if (a>=8.0) cout<<"Gioi";

else if (6.5<=a) cout<<"Kha";

else if (5.0<=a) cout<<"Trung Binh";

else if (3.5<=a) cout<<"Yeu";

else cout<<"Kem";

return 0;

}

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.

#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;

long long i,t,dem;

int main()

{

dem=0;

t=0;

for (i=0; i<=10000; i++)

if (i%12==0) 

{

dem++;

t=t+i;

}

cout<<dem<<" "<<t;

return 0;

}