Viết phương trình tính tổng của 1 dãy số nguyên bất kì nhập từ bàn phím ?
Viết chương trình tính tổng của n số tự nhiên bất kì được nhập từ bàn phím bằng lệnh while do với n là số nguyên được nhập từ bàn phím
program TongN;
var
n, i, tong: integer;
begin
tong := 0;
writeln('Nhap so nguyen duong N: ');
readln(n);
i := 0;
while i < n do
begin
i := i + 1;
tong := tong + i;
end;
writeln('Tong cac so tu 1 den ', n, ' la ', tong);
readln;
end.
viết chương trình nhập vào 1 dãy số gồm 5 số nguyên bất kì từ bàn phím hiển thị 5 số đó theo hàng dọc
#include <bits/stdc++.h>
using namespace std;
long long a[5],i,x;
int main()
{
for (i=1; i<=5; i++)
{
cin>>a[i];
}
for (i=1;i<=5;i++)
cout<<a[i]<<endl;
return 0;
}
Viết chương trình nhập vào từ bàn phím 5 số nguyên bất kì, in ra tổng 5 số vừa nhập
Tham khảo:
uses crt;
var a:array[1..5] of integer;
i,t:integer;
tb:real;
begin
for i:=1 to 5 do readln(a[i]);
t:=0;
for i:=1 to 5 do t:=t+a[i];
tb:=t/5;
write(Tb);
readln;
end.
Uses crt;
Var a,b,c,d,e,g:longint;
Begin
Clrscr;
writeln(so thu nhat la);readln(a);
writeln(so thu nhat la);readln(b);
writeln(so thu nhat la);readln(c);
writeln(so thu nhat la);readln(d);
writeln(so thu nhat la);readln(e);
g:=a+b+c+d+e;
Writeln('Tong scua 5 so la',g);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long x,i,t;
int main()
{
t=0;
for (i=1; i<=5; i++)
{
cin>>x;
t=t+x;
}
cout<<t;
return 0;
}
1/ viết chương trình tính tổng bình phương s= 1² +2²+3²+... + n² với n là số nguyên dương được nhập từ bàn phím 2/ viết chương trình tính tổng của n số lẻ đầu tiên với n là số nguyên dương được nhập từ bàn phím
1:
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
t:=t+i*i;
write(t);
readln;
end.
2
program bt2;
var i,n,t:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
if i mod 2 = 1 then s:=s+i;
readln;
end.
nhập vào dãy số bất kì từ bàn phím: a. Tính tổng dãy số đó b. sắp xếp theo thứ tự tăng (giảm) dần của dãy số đó c. Tìm số nguyên tố trong dãy số đó
uses crt;
var a:array[1..100]of integer;
n,i,t,tam,j,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong la: ',t);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('Day so tang la: ');
for i:=1 to n do
write(a[i]:4);
writeln('Day so giam la: ');
for i:=n downto 1 do
write(a[i]:4);
writeln;
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
readln;
end.
1. viết chương trình : a là 1 số nguyên bất kì được nhập vào từ bàn phím. Hãy kiểm tra xem a có phải là 1 số lẻ chia hết cho 5 hay không
2 viết chương trình : a là 1 số nguyên bất kì được nhập vào từ bàn phím. Hãy kiểm tra xem a có phải là 1 số chẵn chia hết cho 5 hay không
Em chưa học câu lệnh lặp và đây là bài kiểm tra vest ngày mai của em mong mọi người giúp đỡ em mà không dùng câu lệnh lặp được không ạ
mình chưa hiểu rõ đề lắm nên mình sẽ làm tạm như thế này còn nếu bạn muốn kiểu khác thì cứ bình luận để mình làm lại.
câu 1 :
#include<iostream>
using namespace std;
int main() {
long long a;
cout << "giá trị của a: "; cin >> a;
if (a % 2 != 0 && a % 5 == 0) {
cout << "a là một số lẻ chia hết cho 5"
} else {
cout << "a không phải là một số lẻ chia hết cho 5";
}
return 0;
}
câu 2 :
#include<iostream>
using namespace std;
int main() {
int a;
cout << "giá trị của a là: "; cin >> a;
if (a % 2 == 0 && a % 5 == 0) {
cout << "a là một số chẵn chia hết cho 5";
} else {
cout << "a không phải là một số chẵn chia hết cho 5";
}
return 0;
}
(Mình viết ở ngôn ngữ C++)
Viết Phương trình nhập từ bàn phím 2 số nguyên m,n bất kì . Hãy in ra màn hình số lớn hơn
#include <bits/stdc++.h>
using namespace std;
long long m,n;
int main()
{
cin>>m>>n;
cout<<max(m,n);
return 0;
}
Sử dụng biến mảng viết chương trình nhập dãy số gồm 500 số nguyên bất kỳ từ bàn phím sau đó tính tổng các số chẵn trong dãy số đó sao cho giá trị của tổng là số nhỏ nhất lớn hơn 100 in ra giá trị của tổng
Câu 2: (5 điểm)
a) Hãy mô tả thuật toán chương trình nhập n số nguyên từ bàn phím. Đếm xem có bao nhiêu số chẵn và tính tổng của các số chẵn. Biết N cũng được nhập từ bàn phím
b)Viết chương trình nhập dãy số nguyên từ bàn phím. Đếm xem có bao nhiêu số chẵn và tính tổng của các số chẵn. Biết N cũng được nhập từ bàn phím.
Câu 2:
a) Mô tả thuật toán
-Bước 1: Nhập n và nhập dãy số
-Bước 2: dem←0; i←1; t←0;
-Bước 3: Nếu a[i] mod 2=0 thì dem←dem+1 và t←t+a[i];
-Bước 4: i←i+1;
-Bước 5: Nếu i<=n thì quay lại bước 3
-Bước 6: Xuất t và dem
-Bước 7: Kết thúc
Câu 2:
b) uses crt;
var a:array[1..100]of integer;
i,n,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln('So so chan la: ',dem);
writeln('Tong cac so chan la: ',t);
readln;
end.
Viết chương trình nhập vào 1 dãy số gồm n số nguyên (n được nhập từ bàn phím). tính tổng các phần tử lớn hơn 0 trong dãy vừa nhập
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]);
t:=0;
for i:=1 to n do
if a[i]>0 then t:=t+a[i];
writeln(t);
readln;
end.