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.
program tinh_tong_va_dem_so_x;
const
MAX = 100;
var
a: array[1..MAX] of integer;
n, tong, x, dem, i: integer;
begin
write('Nhap so phan tu cua mang: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
end;
tong := 0;
for i := 1 to n do
begin
tong := tong + a[i];
end;
writeln('Tong cac phan tu trong mang la: ', tong);
write('Nhap gia tri x: ');
readln(x);
dem := 0;
for i := 1 to n do
begin
if a[i] = x then
begin
dem := dem + 1;
end;
writeln('So lan xuat hien cua ', x, ' trong mang la: ', dem);
readln;
end.
#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;
}
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)
#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;
}
#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;
}
mình thấy ở trang 71 SGK có bài tương tự
program Tinh_trung_binh_cong;
uses crt;
var n, dem : integer;
a, TB : real;
begin clrscr;
dem:= 0; TB:=0;
write('Nhap so cac so can tinh n = '); realn(n);
write dem < n do
begin dem:= dem + 1;
write('Nhap so thu ', dem,' = '); realn(a);
TB:= TB + a;
end;
TB:= TB/n;
writeln('Trung binh cua ', n, ' so la = ', TB:10:3);
writeln('Nhan Enter de thoat ...');
readln;
end.
**Mô tả thuật toán S:
- Bước 1: i←0; s←0;
- Bước 2: i←i+1;
- Bước 3: s←s+i;
- Bước 4: Nếu i <= 100 thì quay lại bước 2
- Bước 5: Xuất s
- Bước 6: Kết thúc thuật toán
**Mô tả thuật toán tính P:
- Bước 1: i←0; p←1;
- Bước 2: i←i+1;
- Bước 3: p←p*i;
- Bước 4: Nếu i <= 100 thì quay lại bước 2
- Bước 5: Xuất p
- Bước 6: Kết thúc thuật toán
uses crt;
var a:array[1..100]of integer;
i,n,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
s:=1;
for i:=1 to n do
s:=s*a[i];
writeln(s);
readln;
end.
program xuat_hien_k_lan;
uses crt;
var i,n,k,j:integer;
a,b:array[1..100]of integer;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
write('nhap k:');readln(k);
for i:=1 to n do
begin
for j:=i to n do
if a[i]=a[j] then inc(b[i]);
end;
for i:=1 to n do
if b[i]>=k then write(a[i]:5);
readln;
end.
