Viết câu lệnh for in ra màn hình các số chẵn với dãy số 1,2,3,.....,100 theo 2 cách
Cho dãy số i=1,2,3...100 em hãy viết câu lệnh For-do hiển thị các số lẻ ra màn hình
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 100 do
if i mod 2=1 then write(i:4);
readln;
end.
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?
uses crt;
var i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
t:=0;
while i<=n do
begin
if i mod 2=0 then t:=t+i;
i:=i+1;
end;
write(t);
readln;
end.
sử dụng câu lệnh while để in ra màn hình dãy số chẵn(số lẽ) trong khoảng từ 50-150
Program viet_chuong_trinh_tinh_tong;
Uses Crt;
Var i,s:integer;
Begin
Clrscr;
i:=2;
While (i>1) and (i<=100) do
Begin
s:=s+i;
i:=i+2;
End;
Writeln(S);
Readln;
End.
uses crt;
var i:integer;
begin
clrscr;
i:=50;
while i<=150 do
begin
if i mod 2=0 then write(i:4);
i:=i+1;
end;
writeln;
i:=50;
while i<=150 do
begin
if i mod 2=1 then write(i:4);
i:=i+1;
end;
readln;
end.
Bạn ơi giúp mình với chiều nay mình thi rồi
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,tb:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
tb:=0;
for i:=1 to n do
tb:=tb+a[i];
writeln(tb/n:4:2);
readln;
end.
Viết chương trình:
a. Nhập vào mảng A là dãy số nguyên
b. In ra hình dãy số A đó
c. In ra màn hình các số nguyên dương trong dãy số A
d. Tính tổng các số lẽ trong dãy lập trình pascal ta có câu lệnh
Viết câu lệnh theo yêu cầu: a) Sử dụng câu lệnh lặp in ra màn hình 10 câu tên của mình b) Khai báo tên mảng M, với chỉ số đầu là 1, chỉ số cuối là 100, kiểu dữ liệu số nguyên
a)
program TenCuaMinh;
var
i: integer;
begin
for i := 1 to 10 do
writeln('Tên của mình là: <tên>');
end.
b)
program MangSoNguyen;
var
M: array[1..100] of integer;
begin
end.
Chương trình C++
Nhập từ bản phim dãy gồm n số nguyên (n<=100).
* In ra màn hình dãy các số chẵn trong dãy đã nhập
* In ra màn hình giá trị trung bình cộng của dây các số chân từ dãy đã nhập
• In ra màn hình tổng các số lẻ và chia hết cho 3
#include <bits/stdc++.h>
using namespace std;
long long n,i,a[1000],t,dem,t1;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++)
if (a[i]%2==0) cout<<a[i]<<" ";
cout<<endl;
t=0;
dem=0;
for (i=1; i<=n; i++)
if (a[i]%2==0)
{
t=t+a[i];
dem++;
}
cout<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0)<<endl;
t1=0;
for (i=1; i<=n; i++)
if (a[i]%2!=0 || a[i]%3==0) t1+=a[i];
cout<<t1;
return 0;
}
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.