viết chương trình thức hiện đếm và in ra các số chẵn trong đọn từ 10 đến 55 (mỗi số cách nhau một khoảng trắng).
Bài 1 : Viết chương trình in các số lẻ từ n đến m ( với n , m được nhập từ bàn phím ) , theo hàng ngang mỗi số cách nhau một khoảng trắng
Bài 2 : Viết chương trình in các số chẵn từ 1 đến 100
Giúp mk nha
Tham khảo
Bài 2.
Var i:integer;
begin
for i:=1 to 100 do
if i mod 2=0 then write(' Cac so chan tu 1 den 100 la: ',i,' ');
readln;
end.
Viết chương trình nhập vào một số nguyên dương n từ bàn phím 912.10n
Rồi đếm và xuất ra màn hình các số nguyên tố nhỏ hơn hoặc bằng n được viết trên
một hàng với mỗi số cách nhau ít nhất là một khoảng trắng.
#include <bits/stdc++.h>
using namespace std;
long long i,n,kt,j;
int main()
{
cin>>n;
for (i=2; i<=n; i++)
{
kt=0;
for (j=2; j*j<=i; j++)
if (i%j==0) kt=1;
if (kt==0) cout<<i<<" ";
}
return 0;
}
Viết chương trình nhập một số n bất kỳ và in ra màn hình các chữ số chẵn từ 0 đến n sao cho mỗi số cách nhau 5 vị trí
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=0 to n do
if i mod 2=0 then write(i:5);
readln;
end.
Viết chương trình in ra tổng các số chẵn trong khoảng từ 10 đến 30( sử dụng for...do)
Var i,s:integer;
Begin
For i:=10 to 30 do
If i mod 2 = 0 then s:=s+i;
Write('Tong la ',s);
Readln;
End.
1. Tệp Dulieu.txt có một dòng chứa các số nguyên (cách nhau khoảng trắng). Viết chương trình kiểm tra và đưa vào tệp Ketqua.txt những số nguyên dương chẵn trên cùng một dòng và cách nhau một khoảng trắng. 2.Viết chương trình nhập vào một mảng số nguyên, tínhvà đưa ra màn hình tổng của các số không âm có trong mảng.Yêu cầu sử dụng chương trình con để viết các thủ tục nhập, xuất mảng và hàm để tính tổng.
1:
const fi='Dulieu.txt'
fo='ketqua.txt'
var f1,f2:text;
a:array[1..100]of integer;
i,n:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
inc(n);
read(f1,a[n]);
end;
for i:=1 to n do
if (a[i]>0) and (a[i] mod 2=0) then write(f2,a[i]:4);
close(f1);
close(f2);
end.
P/s: Cái này mình viết chương trình chính thôi nhé, còn hàm và thủ tục bạn tự viết nhé(chỉ cần lấy ý tưởng trong chương trình chính ra viết là được rồi)
2:
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 then t:=t+a[i];
writeln(t);
readln;
end.
Viết chương trình nhập vào số nguyên n. Xuất ra màn hình các số chẳn từ 1 đến m ra màn hình nằm chung 1 dòng cách nhau một khoảng trắng.
program SoChanDenN;
var
n, i: Integer;
begin
Write('Nhap n: ');
Readln(n);
Write('Cac so chan tu 1 den ', n, ' la: ');
for i := 1 to n do
begin
if i mod 2 = 0 then
Write(i, ' ');
end;
end.
1. Viết chương trình nhập vào một số nguyên dương n và in ra màn hình dãy số tự nhiên từ 1 tới n. 2. Viết chương trình nhập vào một số nguyên n và in ra màn hình các số nguyên chẵn trong khoảng từ 1 tới n.
1. Uses crt;
var n,i: integer;
begin clrscr;
readln(n);
for i:=1 to n do write(i:3);
readln;
end.
2. Uses crt;
var n,i: integer;
begin clrscr;
readln(n);
for i:=1 to n do if(i mod 2 = 0) then write(i:3);
readln;
end.
1. Uses crt;
var n,i: integer;
begin clrscr;
readln(n);
for i:=1 to n do write(i:3);
readln;
end.
2. Uses crt;
var n,i: integer;
begin clrscr;
readln(n);
for i:=1 to n do if(i mod 2 = 0) then write(i:3);
readln;
end.
1.
program InDaySoTuNhien;
var n, i: integer;
begin
write('Nhap so nguyen duong n: ');
readln(n);
writeln('Day so tu 1 den ', n, ' la:');
for i := 1 to n do
write(i, ' ');
end.
2.
program InSoChan;
var
n, i: integer;
begin
write('Nhap so nguyen n: ');
readln(n);
writeln('Cac so nguyen chan trong khoang tu 1 den ', n, ' la:');
for i := 1 to n do
begin
if i mod 2 = 0 then
write(i, ' ');
end;
end.
viết chương trình nhập từ bàn phím 1 mảng 1 chiều N (N<=90). đếm và in ra màn hình số lượng các số chẵn trong mảng
uses crt;
var a:array[1..90] of longint;
n,i:integer;
begin
clrscr;
write('Nhap so luong phan tu (n<=90): '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Cac so chan: ');
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln(dem);
readln;
end.
viết chương trình nhập n số nguyên từ bàn phím , nhập giá trị cho từng phần tử từ 1 đến N, đếm các số chẵn và tính tổng các số lẻ, hiện kết quả ra màn hình Giúp mik với ạ
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,A[100],dem,t;
cin>>n;
for (int i=1; i<=n; i++)
cin>>A[i];
dem=0; t=0;
for (int i=1; i<=n; i++)
if (A[i]%2==0) dem++;
else t+=A[i];
cout<<dem<<endl;
cout<<t;
return 0;
}