Viết chương trình in ra các số chẵn trong khoảng từ 1 đến n với n được in ra từ bàn phím.
Những câu hỏi liên quan
viết chương trình in ra màn hình tính tổng các số chẵn có trong dãy số từ 0 đến n (n được nhập từ bàn phím)
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
write(t);
readln;
end.
Đúng 1
Bình luận (0)
viết chương trình in ra màn hình các số hoàn hảo trong khoảng từ 1 đến N Với N nguyên dương nhập từ bàn phím
viết chương trình in ra màn hình các số hoàn hảo trong khoảng từ 1 đến N Với N nguyên dương nhập từ bàn phím
viết chương trình in ra màn hình các số hoàn hảo trong khoảng từ 1 đến N Với N nguyên dương nhập từ bàn phím
program SoHoanHao;
uses crt;
var
i, j, n, s: integer;
begin
clrscr;
write('Nhap n: ');
readln(n);
for i := 1 to n do
begin
s := 0;
for j := 1 to i - 1 do
begin
if i mod j = 0 then
s := s + j;
end;
if s = i then
writeln(i);
end;
readln;
end.
Đúng 1
Bình luận (0)
18 tháng 3 2022 lúc 21:00
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.
Đúng 0
Bình luận (4)
Viết chương trình nhập từ bàn phím 1 mảng 1 chiều N (N<=500). In ra màn hình các số chẵn trong mảng
uses crt;
var a:array[1..500]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào 1 dãy n số nguyên(m cũng được nhập từ bàn phím)in ra các số chẵn
Program Tin;
Uses crt;
Var i,n:integer
a:array[1..1000] of integer;
Begin
clrscr;
Write('Nhap n: ');readln(n);
Writeln('Nhap ',n,' so nguyen:');
For i:= 1 to n do
Begin
Write('A[',i,'] = ');
readln(a[i]);
End;
Writeln('Cac so chan co trong day la:');
For i:= 1 to n do If a[i] mod 2 = 1 then write(a[i],' ');
Readln;
End.
Đúng 0
Bình luận (0)
uses crt;
var a:array[1..100]of integer;
i,m:integer;
begin
clrscr;
write('Nhap m='); readln(m);
for i:=1 to m do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to m do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
Đúng 0
Bình luận (0)
uses crt;
var a:array[1..1000000] of longint;
n,i,d:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); 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.
Đúng 0
Bình luận (0)
viết chương trình in ra màn hình bảng cửu chương của số N trong khoản từ 1 đến 9 , N được nhập từ bàn phím
uses crt;
var n, i : integer;
begin clrscr;
readln(n);
for i:=1 to 9 do writeln(n,' x ', i, ' = ', n*i);
readln;
end.
Đúng 0
Bình luận (0)
program MultiplicationTable;
uses crt;
var
N, i, j: integer;
begin
clrscr;
write('Enter N: ');
readln(N);
for i := 1 to 9 do
begin
writeln(N, ' x ', i, ' = ', N*i);
end;
readln;
end.
Đúng 1
Bình luận (0)
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.
Đúng 1
Bình luận (0)
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.
Đúng 0
Bình luận (0)
Câu1 viết chương trình nhập giá trị n từ ban phím in các số chẵn từ 1 đến n Câu2 viết chương trình in ra màn hình các số chẵn đầu tiên với chẵn nhỏ nhất >1000 Lm ơn tui sắp kiểm tra r
Câu 1:
var i,n:integer;
begin
write('n = ');readln(n);
For i:=1 to n do
if i mod 2 = 0 then write(i:6);
readln;
end.
Đúng 1
Bình luận (0)