Viết phương trình tính tổng bình Phương n số nguyên đầu tiên. in kết quả ra màn hình
em hãy viết phương trình tính tổng của 20 số tự nhiên đầu tiên? in ra kết quả màn hình
Program HOC24;
var i,t: integer;
begin
t:=0;
for i:=1 to 20 do t:=t+i;
write(t);
readln
end.
. Viết chương trình tính tổng bình phương của n từ 1 đến 30. In kết quả ra màn hình.
Viết chương trình nhập vào một số nguyên rồi in ra màn hình tất cả các ước số của số đó.
2:
#include <bits/stdc++.h>
using namespace std;
long long n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
if (n%i==0) cout<<i<<" ";
return 0;
}
Bài 1 : Viết chương trình Pascal nhập vào 10 số thực bất kì , in ra màn hình tổng bình phương của các số âm
Bài 2 : Viết chườn trình nhập vào số n số tự nhiên đầu tiên , tính tổng các số chẵn có trong dãy số in kết quả ra màn hình
Bài 3 : Viết chưng trình nhập vào một mảng các số nguyên bất kì , in ra màn hình các số là số dương mà là số lẻ
Giúp mk với mn ơi , mk đang cần gấp Cảm ơn mn nhiều
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????
Viết chương trình nhậo vào 1 dãy nguyên gồm N phần tử (N<=50). Tính tổng bình phương các phần tử là bội của 5 trong dãy số. Đưa kết quả ra màn hình.
Var s,i,n:longint;
Begin
Write('nhap so luong so N = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(so);
If so mod 5 = 0 then s:=s+so*so;
End;
Write('Tong binh phuong cac boi cua 5 trong day la ',s);
Readln;
End.
Var s,i,n,so:longint;
Begin
Write('nhap so luong so N = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(so);
If so mod 5 = 0 then s:=s+so*so;
End;
Write('Tong binh phuong cac boi cua 5 trong day la ',s);
Readln;
End.
viết chương trình: + nhập 1 mảng gồm 15 số nguyên
+ in ra màn hình các số chẵn và tính tích
+ in ra màn hình tổng bình phương các số âm
#include <bits/stdc++.h>
using namespace std;
long long a[15],i,n=15,s,t;
int main()
{
for (i=1; i<=n; i++) cin>>a[i];
s=1;
for (i=1; i<=n; i++)
if (a[i]%2==0)
{
cout<<a[i]<<" ";
s*=a[i];
}
cout<<endl;
cout<<"Tich cac so chan la: "<<s<<endl;
t=0;
for (i=1; i<=n; i++)
if (a[i]<0) t=t+a[i]*a[i];
cout<<t;
return 0;
}
viết trương trình nhập vào một số nguyên N. Tính và in ra màn hình tổng của n số tự nhiên đầu tiên
program sum_of_naturals;
var
i, n, sum: integer;
begin
write('Enter a positive integer: ');
readln(n);
sum := 0;
for i := 1 to n do
begin
sum := sum + i;
end;
writeln('The sum of the first ', n, ' natural numbers is ', sum);
end.
Viết chương trình tính tổng các số không chia hết cho 5 của 100 số nguyên dương đầu tiên xuất kết quả ra màn hình làm nhanh giúp em ạ
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do
if i mod 5<>0 then t:=t+i;
writeln(t);
readln;
end.
Viết chương trình nhập vào số nguyên dương n . Tính và in ra màn hình các kết quả sau bằng ngôn ngữ Python : - Số lượng số lẻ từ 0 --> n - Số lượng số nguyên tố từ 0 --> n - Tổng của những số chẵn từ 0 --> n In ra tất cả các số là số chính phương trong phạm vi từ 0 --> n ( nếu có )
1. Viết chương trình yêu cầu nhập số nguyên N từ bàn phím. Tính tổng các số nguyên đầu tiên của N theo công thức S= \(\dfrac{1}{3}+\dfrac{1}{5}+\dfrac{1}{7}...+\dfrac{1}{2N+1}\)(với N \(\ge\)1). Sau đó in kết quả ra màn hình.
2. Cho dãy số sau: 2; 5; 8; 11. Viết chương trình yêu cầu nhập số nguyên N từ bàn phím. Tính tích E, sau đó in ra màn hình.
E= 2.5.8.11.. } N số nguyên
Bài 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(2*i+1);
writeln(s:4:2);
readln;
end.
Bài tập 1: Viết chứng trình tính tổng 3 số nguyên được nhập từ bàn phím
Bài tập 2: Viết chương trình nhập vào một số và in ra màn hình kết quả số chẵn hay số lẻ
Bài tập 3: Mô tả thuật toán tính tổng của 100 số tự nhiên đầu tiên
program bai1;
uses crt;
var a,b,c,s: real;
begin
clrscr;
write('nhap so thu nhat ='); readln(a);
write('nhap so thu hai ='); readln(b);
write('nhap so thu ba ='); readln(c);
s:=a+b+c;
writeln('tong ba so a,b,c =',s:4:2);
readln;
end.
program bai1;
uses crt;
var n: integer;
begin
clrscr;
write('nhap so n ='); readln(n);
if n mod 2 = 0 then
writeln('la so chan ') else
writeln('la so le ');
readln;
end.
bài 3 :
B1: S <- 0 ; i<-0;
B2: i<- i+1;
B3: Nếu i <= 100 thì S:=S+i; Và quay lại B2.TRong trường hợp ngược lại thông bào kết quả rồi kết thúc thuật toán.