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.

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;

}

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.

14 tháng 5 2021

Bài 1:program sothuc;

uses crt;

var a:array[1..10] of real;s,i,j:real;

begin

s:=0;

for i:=1 to 10 do begin writeln('A[',i,']=');readln(a[i]); end;

for i:=1 to 10 do if a[i]<0 then

for j:=1 to 10 do

begin a[j]:=sqr(a[i]); s:=s+a[j]; end;

writeln('tong binh phuong cac so am la: ',s:2:2); readln;

end. (Khi nào mình kiểm tra chạy lại trên phần mềm rồi sửa lại nếu sai nhé)

Bài 2: 

program soduong;

uses crt;

var a:array[1..100] of integer;s,i,n:integer;

begin

clrscr;

writeln('nhap do dai cua day');readln(n);

for i:=1 to n do begin

writeln('a[',i,']=');readln(a[i]);

if a[i] mod 2 = 0 then s:=s+a[i] end;

writeln('tong so duong trong day la',s:2:0);readln

end.

Bài 3: các số dương mà là số lẻ là sao thế bạn????

11 tháng 5 2022

làm trên microsoft hay pascal z :?

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do write(a[i]:4);

writeln;

for i:=1 to n do 

  if (a[i] mod 2<>0) then write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do t:=t+a[i];

writeln(t);

writeln(t/n:4:2);

readln;

end.

13 tháng 9 2017

https://www.youtube.com/watch?v=NUzLKQv9Jd8

bạn vào link này để xem hướng dẫn đi

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.

14 tháng 11 2021

uses crt;

var a:int64;

begin

clrscr;

readln(a);

writeln(a*4);

readln;

end.

14 tháng 11 2021

dừng 5 giây nx bạn ư

 

17 tháng 4 2022

Program HOC24;

var  d,N,i: integer;

t: longint;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0; d:=0;

for i:=1 to n do

begin

t:=t+a[i];

if a[i]>0 then d:=d+1;

end;

writeln('Tong day so la: ',t);

write('Co ',d,' so nguyen duong');

readln

end.