Viết chương trình in các số tự nhiên từ 1 đến 100 ra màn hình thành 10 hàng, mỗi hàng có 10 số, có dạng như sau:
1 2 3 … 10
11 12 … 20
………….
91 92 …100
Những câu hỏi liên quan
Viết chương trình :1.In ra màn hình bảng cửu chương của số N trong khoảng 1 đến 92.In ra màn hình các số từ 0 đến 99 theo dạng bảng như sau :0 1 2 3 ....... 910 11 12 13 ....... 1920 21 22 23 ... 29...90 91 92 93 ... 993/Sử dụng lệnh lặp While hoặc For để tính trung bình của N số thực x1,x2,x3,.....xn Các số N và x1,x2,x3,.....xn đc nhập từ bàn phím
Đọc tiếp
Viết chương trình :
1.In ra màn hình bảng cửu chương của số N trong khoảng 1 đến 9
2.In ra màn hình các số từ 0 đến 99 theo dạng bảng như sau :
0 1 2 3 ....... 9
10 11 12 13 ....... 19
20 21 22 23 ... 29
.
.
.
90 91 92 93 ... 99
3/Sử dụng lệnh lặp While hoặc For để tính trung bình của N số thực x1,x2,x3,.....xn Các số N và x1,x2,x3,.....xn đc nhập từ bàn phím
Viết chương trình in ra màn hình N số chẵn liên tiếp ( tính từ 10), với N là số tự nhiên nhập từ bàn phím (N>=10) Sử dụng lênh lặp while do In N ra số chắn đó thành nhiều hàng mỗi hàng 10 số hàng cuối cùng có thể là 10 số hoắc ít hơn
Xem chi tiết
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>=10;
a[1]:=10;
i:=1;
while i<=n do
begin
i:=i+1;
a[i]:=a[i-1]+2;
end;
dem:=0;
for i:=1 to n do
begin
write(a[i]:4);
dem:=dem+1;
if dem mod 10=0 then writeln;
end;
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập một số tự nhiên n (n>100) từ bàn phím? In ra màn hình các số tự nhiên lẽ trong phạm vi từ 50 đến ng (Lưu ý: Các giá trị in ra phải nằm trên cùng một hàng)
Program HOC24;
var i,n: integer;
begin
write('Nhap N: '); readln(n);
for i:=50 to n do if i mod 2=1 then write(i,' ');
readln
end.
Đúng 0
Bình luận (0)
1. Viết chương trình nhập vào 1 số tự nhiên P. Tính và in ra màn hình các số lẻ và tổng các số lẻ từ 1 đến P.
2.Viết chương trình nhập vào 1 số tự nhiên N. Tính và in ra màn hình các số chẵn và tổng các số chẵn từ 1 đến N.
3. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là ước của N.
4. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là bội của 3 mà nhỏ hơn hoặc bằng N.
Đọc tiếp
1. Viết chương trình nhập vào 1 số tự nhiên P. Tính và in ra màn hình các số lẻ và tổng các số lẻ từ 1 đến P. 2.Viết chương trình nhập vào 1 số tự nhiên N. Tính và in ra màn hình các số chẵn và tổng các số chẵn từ 1 đến N. 3. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là ước của N. 4. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là bội của 3 mà nhỏ hơn hoặc bằng N.
Câu 1:
Program HOC24;
var i,p: integer;
t: longint;
begin
write('Nhap P: '); readln(p);
t:=0;
for i:=1 to p do if i mod 2<>0 then t:=t+i;
write('Tong cac so le la: ',t);
readln
end.
Đúng 0
Bình luận (0)
Câu 2:
Program HOC24;
var i,n: integer;
t: longint;
begin
write('Nhap N: '); readln(n);
t:=0;
for i:=1 to n do if i mod 2=0 then t:=t+i;
write('Tong cac so chan la: ',t);
readln
end.
Đúng 0
Bình luận (0)
Câu 3:
Program HOC24;
var i,t,n: integer;
begin
write('Nhap N: '); readln(n);
t:=0;
for i:=1 to n do if n mod i=0 then t:=t+i;
write('Tong cac uoc cua ',n,' la: ',t);
readln
end.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
Viết chương trình nhập dãy số gồm 100 số nguyên và in các số đó ra màn hình ( các số trong dãy số in ra trên một hàng, mỗi số cách nhau 2 kí tự
uses crt;
var a:array[1..100]of integer;
i:integer;
begin
clrscr;
for i:=1 to 100 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 100 do
write(a[i]:2);
readln;
end.
Đúng 0
Bình luận (0)
Câu 1: Sử dụng vòng lặp for ... do, viết chương trình tính tổng của 10 số tự nhiên đầu tiên ?Câu 2: Viết chương trình tìm xem có bao nhiêu số dương trong N số nhập vào từ bàn phímCâu 3: Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, và dừng màn hình để có thể quan sát
Câu 1:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln('Tong cua 10 so tu nhien dau tien la: ',s);
readln;
end.
Câu 2:
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]>0 then inc(dem);
writeln('So luong phan tu duong la: ',dem);
readln;
end.
Câu 3:
uses crt;
var i,j:integer;
begin
clrscr;
for i:=1 to 9 do
begin
writeln('Bang nhan ',i,' la: ');
for j:=1 to 10 do
writeln(i,'*',j,'=',i*j);
delay(200);
end;
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào số tự nhiên n in ra màn hình các sỗ chẵn. Các số in theo hàng ngang mỗi số cách nhau 1 kgoaneg trống
Program HOC24;
var i,n: integer;
begin
write('Nhap N: '); readln(N);
for i:=1 to n do if i mod 2=0 then write(i,' ');
readln
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập số tự nhiên n 2 in ra màn hình các số chẵn từ 1 đến n tính tổng số chẵn Vd) N=10;các số chẵn2,4,6,8,10 Tính tổng =2+4+6+8+10
#include <bits/stdc++.h>
using namespace std;
long long i,n,s;
int main()
{
cin>>n;
s=0;
for (i=1; i<=n; i++)
if (i%2==0) s=s+i;
cout<<s;
return 0;
}
Đúng 0
Bình luận (0)
a)Viết chương trình nhập vào 1 số nguyên N < 100. Nếu N là số chẵn thì in ra màn hình các số chẵn từ 0 đến Nb)Viết chương trình nhập vào 1 số nguyên N < 100. Nếu N là số lẻ thì in ra màn hình các số lẻ từ 1 đến N
Xem chi tiết
a)
uses crt;
var i,n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n<100;
if n mod 2=0 then
begin
for i:=0 to n do
if i mod 2=0 then write(i:4);
end
else writeln(n,' khong la so chan');
readln;
end.
Đúng 0
Bình luận (0)
b)
uses crt;
var i,n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n<100;
if n mod 2=1 then
begin
for i:=1 to n do
if i mod 2=1 then write(i:4);
end
else writeln(n,' khong la so le');
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập số tự nhiên n hãy in ra màn hình các số chẵn từ 1 đến n tính số chẵn
ví dụ N=10 các số chẵn 2, 4, 6, 8, 10 tính tổng a = 2 + 4 + 6 + 8 + 10
Xem chi tiết
Tính tổng N = 2+4+6+8+10
Mk nhầm
Bạn kham khảo bài của mình nhé!
Program nhap_so_n;
Uses crt;
Var i,n,s:integer;
Begin clrscr;
Write('Nhap so n= ');Readln(n);
S:=0;
For i:=1 to n do
If i mod 2 = 0 do S:=S+i;
Writeln;
Write('tong cac so chan la ',S);
Readln;
End.
Mình chúc bạn học tốt!