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.

uses crt;

var a,b,tb:real;

begin

clrscr;

readln(a,b);

tb:=(a+b*2)/3;

writeln(tb:4:2);

if (tb>=8) then writeln('gioi')

else if ((tb>=6.5) and (tb<8)) then writeln('Kha')

else if ((tb>=5) and (tb<6.5)) then writeln('Trung Binh')

else writeln('Yeu');

readln;

end.

#include <bits/stdc++.h>

using namespace std;

double a,b,tb;

int main()

{

cin>>a>>b;

tb=(a+b*2)/3;

cout<<fixed<<setprecision(2)<<tb<<endl;

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

else if ((tb>=6.5) and (tb<8)) cout<<"Kha";

else if ((tb>=5) and (tb<6.5)) cout<<"Trung binh";

else cout<"Yeu";

return 0;

}

#include <bits/stdc++.h>
using namespace std;
int n,x,i,cnt,res;
int main() {
ios_base::sync_with_stdio(false);
cin.tie(NULL);
cout.tie(NULL);
cin>>n>>cnt;
for(i=0;i<n;i++)
{
    cin>>x;
    if(x%cnt==0) res++;
}
cout<<"so luong phan tu chia het cho "<<cnt<<" la: "<<res;
return 0;
}

 

 

#include <bits/stdc++.h>
using namespace std;
const int gh=1000;
int n,x,i,cnt,res,dem[gh];
int main() {
ios_base::sync_with_stdio(false);
cin.tie(NULL);
cout.tie(NULL);
cin>>n>>cnt;
for(i=0;i<n;i++)
{
    cin>>x;
    if(x%cnt==0) { res++; dem[res]=x;}
}
cout<<"so luong phan tu chia het cho "<<cnt<<" la: "<<res;
cout<<"\n"<<"cac phan tu do la: "<<"\n";
for(i=1;i<=res;i++)
    cout<<dem[i]<<" ";
return 0;
}

// đây mới đúng mik đọc lỗi đề nha bạn!!

2 tháng 8 2023

1. Thử thách cá voi xanh ở nền tảng xã hội tiktok
2. Thương tích cho bản thân, suy sụp tinh thần và nặng hơn nữa là mạng sống
3. Hiểu rõ và đọc từ các nguồn tin chính thống đã được xác thực

9 tháng 4 2021

9 tháng 4 2021

undefined

Nếu chưa học câu lệnh này thì rep lại cho mình để mình dùng mấy câu lệnh đã học từ b8 trở về trước nhá! Good luck for you :D 

17 tháng 5 2021

Mình có bị nhưng có cách giải quyết đấy !

Bạn uninstall bản free pascal đấy đi rồi tải bản khác hoặc bạn có thể update cũng được

17 tháng 5 2021

mình làm rồi mà không được bạn

28 tháng 6 2020

cảm ơn nhé

Mọi người làm hộ em ạ                                  ĐỀ CƯƠNG ÔN TẬP TIN HỌC 8 KÌ II                                             Năm học 2020 - 2021I. LÝ THUYẾT  Chọn đáp án đúng trong các đáp án sau.1. Trong Pascal vòng lặp nào sau là vòng lặp có bước lặp xác định (biết trước).A. While … do                                                          B. Repeat … Until               C. For .. to .....
Đọc tiếp

Mọi người làm hộ em ạ

                                  ĐỀ CƯƠNG ÔN TẬP TIN HỌC 8 KÌ II

                                             Năm học 2020 - 2021

I. LÝ THUYẾT

 Chọn đáp án đúng trong các đáp án sau.

1. Trong Pascal vòng lặp nào sau là vòng lặp có bước lặp xác định (biết trước).

A. While … do                                                          B. Repeat … Until               

C. For .. to .. do                                                         D. Case.. of

2. Phương án nào dưới đây là khai báo mảng hợp lệ ?

A. mang : array[0..10] of integer;                          B. mang : array[0..10] : integer;

C. mang : integer of array[0..10];                           D. mang : array(0..10) : integer;

3. Cho khai báo sau :

a : array[0..16] of integer ;

Câu lệnh nào dưới đây sẽ in ra tất cả các phần tử của mảng trên ?

A. for k := 1 to 16 do write(a[k]);                          B. for k := 16 downto 0 do write(a[k]);

C. for k:= 0 to 15 do write(a[k]);                           D. for k := 16 down to 0 write(a[k]);

4. Cho khai báo sau:

Var a : array[0..10] of integer ;

Phương án nào dưới đây chỉ phần tử thứ 10 của mảng ?

A. a[10];                                 B. a(10);                     C. a[9];                       D. a(9);

5. Chọn khai báo đúng:

A. Var A: array[1..10] of integer;                          B. Var A= array[1..10] of integer;

C. Var A:= array[1..10] of integer;                        D. Var A: array[1,10] of integer;

6. Cho khai báo:  Var a : array[0..50] of real;  và đoạn chương trình:

k := 0 ;

for i := 1 to 50 do

            if a[i] < a[k] then k := i ;

Đoạn chương trình trên thực hiện công việc gì dưới đây ?

A.Tìm phần tử nhỏ nhất trong mảng;

B.Tìm phần tử lớn nhất trong mảng;

C.Tìm chỉ số của phần tử lớn nhất trong mảng;

D.Tìm chỉ số của phần tử nhỏ nhất trong mảng;

7. Cho S va i là biến nguyên. Khi chạy đoạn chương trình:

            S:=0;

            For i:=1 to 10 do s:=s+i;

            Writeln(s);

Kết quả in lên màn hình là:

A. s=11                                  B. s=55                                   C. s=100                    D. s=101

8.  Câu lệnh cho phép ta nhập giá trị của a từ bàn phím là:

            A. readln(a);                                                 B. Writeln(a);           

C. Write(‘nhap gia tri cua a:’);                               D. Write(a);

9. Câu lệnh lặp với số lần chưa biết trước bắt đầu bằng từ khóa:

A. For                         B. While                                 C. If                             D. Var

10. Cho S và i là biến nguyên. Khi chạy đoạn chương trình :

          s:=0;

          for i:=1 to 3 do s := s + i;

          writeln(s);

    Kết quả in lên màn hình của S là :

A.  6

B.  3

C.  0

D.  5

11. Khai báo biến kiểu mảng nào sau đây là hợp lệ:

A. Var A: array[1.5..10.5] of real;                         B. Var A: array[1…N] of real;

C. Var A: array[100..1] of integer;                                    D. Var A: array[1..50] of integer;

12. Khi chạy chương trình:

Var S, i, j: Integer;

Begin

S:=0;

for i:= 1 to 3 do

for j:= 1 to 4 do S:=S+1;

End.

Giá trị sau cùng của S là:

A. 4                             B. 3                             C. 12                           D. 0

13. Một số kiểu dữ liệu trong passcal:

  A. Integer, real, byte, char…

B. Writeln, readln, integer, begin...

  C. For, while, array, to…

D. While, do, real…

14. Câu lệnh lặp while…do nào dưới đây là đúng:

A. While i:=10 do S := S+1/i;                                 B. While i > 1 do S = S+1/i;

C. While 10 do S := S+1/i;                                      D. While i do S = S+1/i;

15. Cho khai báo:  Var a : array[0..50] of real ;    và đoạn chương trình

k := 0 ;

for i := 1 to 50 do

            if a[i] > a[k] then k := i ;

Đoạn chương trình trên thực hiện công việc gì dưới đây ?

A. Tìm phần tử nhỏ nhất trong mảng;

B. Tìm phần tử lớn nhất trong mảng;

C. Tìm chỉ số của phần tử lớn nhất trong mảng;

D. Tìm chỉ số của phần tử nhỏ nhất trong mảng;

II. TỰ LUẬN

Câu 1. Viết chương trình nhập n số nguyên từ bàn phím, in dãy số nguyên đó ra màn hình và tìm giá trị lớn nhất trong dãy.

Câu 2. Viết chương trình nhập n số nguyên từ bàn phím, in dãy số nguyên đó ra màn hình và tìm giá trị nhỏ nhất trong dãy.

Câu 3. Viết chương trình nhập một dãy gồm n số thực từ bàn phím. Tính tổng và trung bình cộng các số đó. In kết quả tính được ra màn hình.

Câu 4. Viết chương trình nhập một dãy gồm n số nguyên từ bàn phím, đếm xem có trong đó có bao nhiêu số là số chẵn. Tính tổng các số chẵn đó. In kết quả tính được ra màn hình.

12

I: Trắc nghiệm

Câu 1:C

Câu 2: A

Câu 3: B

Câu 4: A

24 tháng 7 2021

Program HOC24;

var S,i: integer;

begin

s:=0;

for i:=22 to 121 do s:=s+i;

write('S= ',s);

readln

end.

23 tháng 10 2021

Giữa "var" và "a:real" thì ko xuống dòng

23 tháng 10 2021

hình như là c:=a+b chưa có ;