In ra các số chẵn 2- 10, số lẻ từ 1 - 9: sử dụng lệnh continue để thực hiện
Những câu hỏi liên quan
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.
Đúng 0
Bình luận (0)
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.
Đúng 0
Bình luận (0)
Sử dụng câu lệnh while in ra màn hình tổng số chẵn và số lẻ trong khoảng từ 1-20
Giúp e gấp với ạ
uses crt;
var i,t1,t2:integer;
begin
clrscr;
t1:=0;
t2:=0;
i:=0;
while i<=20 do
begin
i:=i+1;
if i mod 2=0 then t1:=t1+i
else t2:=t2+i;
end;
writeln(t1);
writeln(t2);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình sử dụng câu lệnh lặp với số lần chưa biết trước in ra các số lẻ từ 1 đến 10
Xem chi tiết
uses crt;
var i:integer;
begin
clrscr;
i:=1;
while i<=10 do
begin
if i mod 2=1 then write(i:4);
i:=i+1;
end;
readln;
end.
Đúng 1
Bình luận (0)
NHẬP N IN RA CÁC TỔNG CÁC SỐ CHẴN TỪ 1 ĐẾN N ;; SỬ DỤNG CÂU LỆNH WHILE DO
Program HOC24;
var i,n,t: integer;
begin
write('Nhap N: '); readln(n);
i:=2; t:=0;
while i<=n do
begin
t:=t+i;
i:=i+2;
end;
write('Tong cac so chan tu 1 den ',n,' la: ',t);
readln
end.
Đúng 1
Bình luận (0)
Thực hiện viết chương trình:
1: Tính tổng các số từ M -> N
2: Kiểm tra 1 số nguyên nhập từ bàn phím có phải là số chẵn (lẻ), số âm (dương), chia hết (yêu cầu sử dụng CTC để viết)
Bài 1:
uses crt;
var m,n,i,t:integer;
begin
clrscr;
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
t:=0;
for i:=m to n do
t:=t+i;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
2:
uses crt;
var n:integer;
{---------------chuong-trinh-con-kiem-tra-chan-le---------------------}
function ktcl(x:integer):boolean;
begin
if x mod 2=0 then ktcl:=true
else ktcl:=false;
end;
{--------------------chuong-trinh-con-kiem-tra-duong-am-------------------}
fucntion ktda(x:integer):boolean;
begin
if x>0 then ktda:=true
else if x<0 then ktda:=false;
end;
{--------------------chuong-trinh-chinh-------------------------}
begin
clrscr;
write('Nhap n='); readln(n);
if ktcl(n)=true then writeln('Day la so chan')
else writeln('Day la so le');
if ktda(n)=true then writeln('Day la so duong')
else writeln('Day la so am');
readln;
end.
Đúng 0
Bình luận (0)
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;
}
Đúng 0
Bình luận (0)
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ố lẻ 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;
}
Đúng 0
Bình luận (0)
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.
Đúng 1
Bình luận (0)
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.
Đúng 0
Bình luận (0)
câu lệnh pascal: s:1; while s<9 do writeln(s)_; sẽ:
A.không in ra các số từ 1 đến 9
B. in ra vô hạn số 1, mỗi số trên một dòng
C.ko thực hiện lệnh writeln(s);
D.In ra các số từ 1 đến 9
