viết chương vtrình nhập n từ bàn phím ( với n thuộc N*). Tính tổng các số chẵn liên tiếp đến n và in kết quả ra màn hình. Sử dụng câu lệnh lặp For...do)
n = int(input("Nhap n: "))
sum_even = 0
for i in range(2, n+1, 2):
sum_even += i
print("Tong cac so chan lien tiep den", n, "la:", sum_even)
python ha:0?
Câu 18: Viết chương trình in ra 10 chữ “o” trên màn hình (0.5đ)
Câu 19: Viết chương trình in ra màn hình thứ tự lần lặp (0.5đ)
Câu 20: Viết chương trình tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiên nhập từ bàn phím (1đ)
Câu 21: Điền vào chỗ chấm: (0.5d)
“ Để viết chương trình chỉ dẫn máy tính thực hiện các hoạt động lặp mà chưa xác định trước được số lần lặp, ta … chưa xác định”
Câu 22: Vẽ sơ đồ khối lệnh While – do (0.5đ)
Câu 23: Nếu cộng lần lượt n số tự nhiên đầu tiên (n=1,2,3,…), ta được kết quả
T1=1
T2=1+2
T3=1+2+3
Cần cộng bao nhiêu số tự nhiên đầu tiên liên tiếp để ta nhận được tổng Tn nhỏ nhất nhưng lớn hơn 1000. Viết chương trình (1đ)
Viết chương trình tính tích các số chẳn và lớn hơn 10 từ 1 đến n. Với n được nhập từ bàn phím, rồi in kết quả ra màn hình
cách 1: sử dụng lệnh for do
cách 2: sử dụng lệnh while do
Cách 1 dùng lệnh for do:
Uses crt;
var i,n,k: integer;
begin clrcsr;
readln(n);
for i:=1 to n do begin
if(i mod 2=0) and (i>=10) then k:=k*i;
end;
writeln(k);
readln;
end.
Cách 2 dùng lệnh while do
Uses crt;
var m,n,o: integer;
begin clrcsr;
readln(n);
o:=1;
m:=1;
while (m<n) do begin
m:=m+1;
if(m mod 2=0) and (m>=10) then o:=o*m;
end;
writeln(o);
readln;
end.
Viết chương trình nhập vào từ bàn phím số nguyên dương n,sử dụng câu lệnh lặp và câu lệnh điều kiện để tính tổng các giá trị là số chẵn trong phạm vi từ 1 đến N,sau đó in ra màn hình
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
if (i%2==0) t+=i;
cout<<t;
return 0;
}
viết chương vtrình nhập n từ bàn phím ( với n thuộc N*). Tính tổng các số lẻ liên tiếp đén n và in kết quả ra màn hình. 9Suwr dụng câu lệnh lặp For...do)
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.
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.
Viết chương trình sử dụng lệnh lặp While ... do ... để thực hiện công việc sau
- Nhập vào số nguyên n (10<n<100)
-In ra màn hình tất cả các ước của n
-Tính tổng và thông báo các ước của n là số chẵn
program tim_uoc;
uses crt;
var i,n,tong:integer;
begin
clrscr;
write('nhap so n:');readln(n);
i:=1;tong:=0;
writeln('cac uoc cua ',n,' la:');
while i<=n do
if n mod i=0 then
begin
write(i:3);
inc(i);
end;
writeln;
i:=1;writeln('cac uoc chan:');
while i<=n do
begin
if n mod i=0 then
begin
if i mod 2=0 then write(i:3);
tong:=tong+i;
end;
end;
writeln;
write('tong cac uoc chan:',tong);
readln;
end.
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
writeln('Cac uoc cua ',n,' la: ');
while i<=n do
begin
if n mod i=0 then write(i:4):
i:=i+1;
end;
writeln;
writeln('Cac uoc chan cua ',n,' la: ');
t:=0;
i:=1;
while i<=n do
begin
if (n mod i=0) then
begin
t:=t+i;
write(i:4);
end;
inc(i);
end;
writeln('Tong cac uoc chan cua ',n,' la: ',t);
readln;
end.
Viết chương trình nhập N số nguyên từ bàn phím in các số lẻ ra màn hình(sử dụng câu lệnh lặp với số lần biết trước)
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.
uses crt;
var i,n:longint;
begin
writeln('nhap n'); readln(n);
for i:=1 to n do if i mod 2 =1 then
writeln(i);
readln;
end.
ngu ththế mà cũng ko làm được về lớp 1 mà học