giúp mình với ạ :<
Viết chương trình nhập từ bàn phím một dãy số nguyên dương gồm N (N <= 100) phần tử mỗi phần tử có giá trịnh không quá 500. Hãy in ra màn hình số lượng các phần tử trong dãy là số nguyên tố và tổng các số nguyên tố đó .
giúp mình với ạ :<
Viết chương trình nhập từ bàn phím một dãy số nguyên dương gồm N (N <= 100) phần tử mỗi phần tử có giá trịnh không quá 500. Hãy in ra màn hình số lượng các phần tử trong dãy là số nguyên tố và tổng các số nguyên tố đó .
Câu 1: Điền vào dấu (…): Mảng một chiều là một dãy hữu hạn các phần tử có cùng (…)
A. Thông tin B. Dữ liệu C. Kiểu D. Giá trị
Câu 2: Cấu trúc lặp thường có mấy dạng?
A. 3 B. 4 C. 2 D. 1
Câu 3: Để tính S=1+22+32+…+n2 cho đến khi S>1000 em sẽ sử dụng lệnh lặp nào?
A. While – do B. If – Then C. For – do D. Cả ba đều đúng.
Câu 4: Khai báo sau đây thì mảng có tối đa bao nhiêu phần tử? Var a:array [0..10] of byte;
A. 8 B. 9 C. 11 D. 10
Câu 5: Để lưu trữ dãy số thực A1, A2, … A50 thì khai báo nào sau đây là đúng?
A. Var A:=array[1..50] of real; B. Var A:array[1..50] of word;
C. Var A:array[1..30] of extended; D. Var A:array[1..50] of Real;
Câu 6: Cho đoạn lệnh: S:= 0; For i:=1 to 10 do S:=S+i; kết quả S sau khi thực hiện là bao nhiêu?
A. 10 B. 55 C. 1 D. 50
Câu 7: Trong câu lệnh while: While <điều kiện> do <câu lệnh>; khi nào kết thúc lặp?
A. Điều kiện đúng B. Điều kiện sai C. Cả A và B đúng D. Cả A và B sai.
Câu 8: Cho lệnh lặp: While (abs(x) >= 5) do write(x); lệnh write(x) được lặp lại bao nhiêu lần?
A. Lặp vô hạn B. 5 lần C. 6 lần. D. Chưa biết
Câu 9: Lệnh lặp nào sau đây là đúng.
A. For i:=1 two 10 do S:=S+i; B. For i:=1 to 10 do S:=S+i;
C. For i=1 to 10 do S:=S+i; D. For i:=1 to -10 do S:=S+i;
Câu 10: Có Var A:Array[1..100] of byte; Để tham chiếu đến phần tử 5 của mảng, ta viết thế nào?
A. A<5> B. A(5) C. A{5} D. A[5]
Câu 1: C
Câu 2: C
Câu 3: D
Câu 4: C
Câu 5: D
Câu 6: B
Câu 7: B
Câu 9: B
Câu 10: D
viết chương trình nhập vào mang một chiều các số thực, số lượng phần tử không quá 1000. Đưa ra màn hình số lẻ cuối cùng và chỉ số của nó trong mảng bằng chương trình pascal
giúp mik vs
#include <bits/stdc++.h>
using namespace std;
long long n,gt;
int main()
{
cin>>n;
gt=1;
for (int i=1; i<=n; i++) gt*=i;
cout<<gt;
return 0;
}
Viết bằng Pascal:
Var n,i gt:longint;
Begin
Write('Nhap n = ');readln(n);
gt:=1;
For i:=1 to n do gt:=gt*i;
Write(n,'! = ',gt);
Readln;
End.
1. Viết chương trình nhập và 2 số a và b kiểu nguyên dương. Nếu a= b thì tính diện tích hình vuông. Ngược lại tính diện tích hình chữ nhật và in kết quả diện tích ra. 2. Viết chương trình thực hiện: nhập 3 số a, b, c từ bàn phím. Kiểm tra và thông báo a, b, c có lập thành 3 cạnh của tam giác hay không? 3. Viết chương trình nhập vào 3 số a, b, c từ bàn phím. In ra số nhỏ nhất.
Giúp mình với ạ PHẦN BÀI TẬP Em hãy lập trình và hiển thị kết quả ra màn hình điểm xét tốt nghiệp THPT. Thí sinh thi 03 môn Toán, Văn và Anh văn. Tính điểm TB cộng 3 môn; điểm xét tốt nghiệp là trung bình cộng của 3 môn cùng với điểm trung bình của năm học lớp 12; Biết rằng điểm đỗ tốt nghiệp từ 5 trở lên, còn lại là trượt tốt nghiệp.
Viết chương trình nhập vào điểm trung bình của một học sinh và phân loại học sinh theo tiêu chuẩn sau:
9≤ Điểm TB Loại A7≤ Điểm TB < 9 Loại B5≤ Điểm TB < 7 Loại CĐiểm TB < 5 Loại DInputGồm số số thực TB(0<=TB<=10) �� (0≤��≤1OutputGhi ra một trong các kí tự thộc tập {A, B, C, D}.Sample InputCopy7.5Sample OutputCopy8uses crt;
var a:real;
begin
clrscr;
readln(a);
if (a>=9) then write('A')
else if ((7<=a) and (a<9)) then write('B')
else if ((5<=a) and (a<7)) then write('C')
else write('D');
readln;
end.
python
diem_tb = float(input("Nhập điểm trung bình của học sinh: "))
if diem_tb >= 9:
loai = 'A'
elif diem_tb >= 7:
loai = 'B'
elif diem_tb >= 5:
loai = 'C'
else:
loai = 'D'
print("Loại học sinh: ", loai)
Pascal
program PhanLoaiHocSinh;
var
diem_tb: real;
loai: char;
begin
write('Nhap diem trung binh cua hoc sinh: ');
readln(diem_tb);
if diem_tb >= 9 then
loai := 'A'
else if diem_tb >= 7 then
loai := 'B'
else if diem_tb >= 5 then
loai := 'C'
else
loai := 'D'
writeln('Loai hoc sinh: ', loai);
end.
var TB:real;
begin
readln(TB);
if TB>=9 then
writeln('A')
else if TB>=7 then
writeln('B')
else if TB>=5 then
writeln('C')
else
writeln('D');
readln;
end.
viết chương trình nhập một dãy A gồm N số nguyên. Hãy cho biết trong dãy đó có bao nhiêu số chia hết cho 3
var a:array [1..100] of integer;
i,n,dem:integer;
begin
write('Nhap so luong so N = ');readln(n);
for i:=1 to n do
begin
write('Nhap vao so thu ',i,': ');readln(a[i]);
if a[i] mod 3 = 0 then dem:=dem+1;
end;
write('Co ',dem,' so chia het cho 3');
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,dem;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
dem=0;
for (i=1; i<=n; i++)
if (a[i]%3==0) dem++;
cout<<dem;
return 0;
}