Viết chương trình nhập vào dãy số có n số, xuất ra màn hình tổng các số chia hết cho 2.
Ví dụ nhập n = 5
1 2 3 4 6
Xuất: tong cac so chia het cho 2 la: 12
Bài 4: Viết chương trình: (Lưu bài: D:\LOP_HOTEN_BAI4.PAS)
a. Nhập một dãy số nguyên có n phần tử
b. Xuất ra màn hình dãy số vừa nhập.
c. Tính và in ra màn hình tổng của các phần tử chia hết cho 3 có trong dãy.
d. Xuất ra màn hình các phần tử là số âm.
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,t;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
t=0;
for (i=1; i<=n; i++)
if (i%3==0) t+=i;
cout<<t<<endl;
for (i=1; i<=n; i++)
if (a[i]<0) cout<<a[i]<<" ";
return 0;
}
Bài 1: Viết chương trình nhập vào 1 dãy số nguyên xuất dãy số đó ra màn hình tính tích các số chẵn và xuất ra màn hình.
Bài 2: Viết chương trình nhập 1 dãy số nguyên, xuất dãy số đó ra màn hình tính tổng các số chẵn các số lẻ và xuất ra màn hình.
program timtich;
uses crt;
var i,n:integer;
tich:longint;
a:array[1..100]of integer;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
tich:=1;
writeln;
for i:=1 to n do
if a[i] mod 2=0 then tich:=tich*a[i];
writeln('tich ca phan tu chan cua mang la:',tich);
readln;
end.
program timtong;
uses crt;
var i,n:integer;
tong:longint;
a:array[1..100]of integer;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
tong:=0;
writeln;
for i:=1 to n do
if a[i] mod 2=0 then tong:=tong+a[i];
writeln('tong cac phan tu chan cua mang la:',tong);
tong:=0;
writeln;
for i:=1 to n do
if a[i] mod 2=1 then tong:=tong+a[i];
writeln('tong cac phan tu le cua mang la:',tong);
readln;
end.
Bài 1:
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
if a[i] mod 2=0 then s:=s*a[i];
writeln(s);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,t1,t2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t1:=0;
t2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then t1:=t1+a[i]
else t2:=t2+a[i];
end;
writeln('Tong cac so chan la: ',t1);
writeln('Tong cac so le la: ',t2);
readln;
end.
Viết chương trình nhập vào 1 dãy số nguyên dương có n phần tử (n là số nguyên dương nhập từ ban phím), xuất dãy số ra màn hình. Cho biết dãy số có bao nhiêu số chính phương. Số chính phương là số khi ta rút căn bậc 2 có kết quả là số nguyên. Ví dụ như số 4, 9, 16, 25, 36,.... Sắp xếp dãy số tăng dần. Xuất dãy số sau khi sắp xếp. Lưu ý: Các chức năng của chương trình đều được thực hiện bằng hàm. Ví dụ như chức năng nhập, xuất, kiểm tra chính phương, ...
bạn hỏi khó thế, đây mới là phần cho lớp 8 thôi mà
Viết chương trình pascal nhập vào số nguyên n. Xuất kết quả ra màn hình ?
a) Các số nguyên liên tiếp từ 1 đến n ea màn hình?
b) Xuất các số nguyên tố có trong đoạn từ 1 đến n ra màn hình ?
Vd:
Nhap n=6
Cac so nguyen la
6 la hop so.
Vd:
Nhap n=11
Cac uoc cua n la : 1,11
11 la so nguyen to
Giúp mình với ạ, mình đang cần gấp
uses crt;
var a:array[1..100]of integer;
i,n,dem,kt,j:integer;
begin
clrscr;
readln(n);
for i:=1 to n do write(i:4);
writeln;
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
readln;
end.
Viết chương trình nhập vào số nguyên dương. Tính và in ra kết quả màn hình ;
- các số chia hết cho 3 từ 1 đến n
- có bao nhiêu số chia hết cho 3
- tổng các số đó
vd : nhập n = 20. in ra
- các số chia hết cho 3 : 3 6 9 12 15 18
- có 6 số chia hết cho 3
- tổng là ; 63
Em cần gấp giúp ẹm
uses crt;
var i,n,d:longint;
begin
d:=0;
writeln('nhapn=');read(n);
for i:=1 to n do
begin
if i mod 3=0 then write(i,' ');
if i mod 3=0 then d:=d+i;
end;
writeln('tong=',d);
readln;
end;
Câu 1 viết chương trình nhập vào 1 dãy n số nguyên bất kỳ .In ra màn hình tổng các số chia hết cho 2
uses crt;
var i,n:integer;
t:longint;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n:');readln(n);
t:=0;
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
if a[i] mod 2=0 then t:=t+a[i];
end;
write(t);
readln;
end.
Cho dãy A gồm N số nguyên (N nhỏ hơn hoặc bằng 200) số nguyên A1,A2,...An. Hãy viết chương trình nhập mảng A vào từ bàn phím và đưa ra màn hình tổng các phần tử chia hết cho 5.
Bài 2: Viết chương trình nhập 1 xâu vào từ bàn phím và đưa ra màn hình xâu không chứa dấu cách.
Bài 1:
uses crt;
var a:array[1..200]of integer;
i,n,t: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
if a[i] mod 5=0 then t:=t+a[i];
writeln('Tong cac so chia het cho 5 la: ',t);
readln;
end.
Bài 2:
uses crt;
var st:string;
d,i:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i]=#32 then delete(st,i,1);
writeln(st);
readln;
end.
Câu 1:Viết chương trình nhập vào 1 dãy N số nguyên. Đưa ra màn hình tổng các số dương chia hết cho 3
Câu 1:
Uses crt;
Var a:array[1..100] of integer;
I,n,t: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
If (a[i]>0) and (a[i] mod 3=0) then t:=t+a[i];
Writeln(t);
Readln;
End.
Viết chương trình nhập 1 dãy số gồm N số nguyên N≤100 in dãy vừa nhập.Tính và đưa ra màn hình tổng các số chia hết cho 2 nhưng không chia hết cho 3 trong dãy trên.Ghi kết quả vừa tính được vào tệp Bài tập.Out
Giúp mình với ạ