Viết chương trình tính tổng các số sao cho tổng lớn hơn hoặc bằng 1000
Những câu hỏi liên quan
câu 1viết chương trình tính tổng của các số lẻ nhỏ hơn N với N được nhâp từ bàn phím
câu 2 viết chương trình in ra màn hình n*
câu 3 viết chương trình tính tổng của N số sao cho tổng đó lớn nhất nhỏ hơn 1000
giúp mình đi mai mk thi rồi
Bài 1: Viết chương trình nhập số nguyên dương n. Tính tổng các số chẫn chia hết cho 3 nhỏ hơn hoặc bằng n
Bài 2: Viết chương trình nhập vào 3 số nguyên dương a, b, c. Tìm ước chung lớn nhất của 3 số
Bài 1:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 6=0 then s:=s+i;
writeln(s);
readln;
end.
Đúng 1
Bình luận (0)
Bài 2:
uses crt;
var a,b,c,ucln,i:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
while a<>b do
begin
if a>b then a:=a-b
else b:=b-a;
end;
ucln:=a;
while ucln<>c do
begin
if ucln>c then ucln:=ucln-c
else c:=c-ucln;
end;
writeln(ucln);
readln;
end.
Đúng 1
Bình luận (0)
Scratch hay java
viết chương trình tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó lớn hoặc bằng 100 thì dừng lại 
uses crt;
var i,t:integer;
begin
clrscr;
i:=1;
t:=0;
repeat
t:=t+i;
inc(i);
until t>=100;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình tính tổng các số chẵn từ nhỏ hơn hoặc bằng n
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('Ket qua: ',t);
readln
end.
Đúng 0
Bình luận (0)
Viết chương trình tính tổng của các số tự nhiên chẳn đầu tiên sao cho lớn hơn 69
uses crt;
var n,i,t:integer;
begin
n:=0;
t:=0;
repeat
n:=n+2;
t:=t+n;
until t>69;
writeln(n);
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình tính tổng n các số lẻ nhỏ hơn hoặc bằng n bằng
-for do
-while do
for ... do
program Tinh_S;
uses crt;
var i,n:byte;
S:longint;
begin
writeln('Nhap so n='); readln(n);
S:=0;
for i:=1 to n do
if i mod 2=1 then S:=S+i;
writeln('Tong cac so le nho hon hoac bang n la, S=',S)
readln
end.
Đúng 2
Bình luận (2)
* While....do
Uses crt;
var n,i,k: integer;
begin clrscr;
readln(n);
i:=0;
while(i<=n) do begin
i:=i+1;
if(i mod 2<>0) then k:=k+i;
end;
writeln(k);
readln;
end.
* for...do
Uses crt;
var n,i,u: integer;
begin clrscr;
readln(n);
for i:=1 to n do if(i mod 2<>0) then u:=u+i;
writeln(u);
readln;
end.
Đúng 1
Bình luận (2)
while... do
program Tinh_P;
uses crt;
var i,n:byte;
P:longint;
begin
writeln('Nhap so n='); readln(n);
P:=0; i:=1;
while i<=n do
begin
if i mod 2=1 then P:=P+i;
i:=i+1;
end;
writeln('Tong so le nho hon hoac bang n la, P=',P);
readln
end.
Đúng 3
Bình luận (0)
Viết chương trình cộng dồn số sách các lớp quyên góp cho đến khi tổng số sách lớn hơn hoặc bằng 100 thì dừng.
Mn giúp em ạ mai em thii rồi.
uses crt;
var n,t:integer;
begin
clrscr;
t:=0;
repeat
write('Nhap so sach:'); readln(n);
t:=t+n;
until t>=100;
writeln('Tong so quyen sach la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
em hãy viết chương trình tìm số n sao cho tổng các số từ 1 đến n nhỏ nhất và lớn hơn 1000 (biết số nguyên n được nhập từ bàn phím)
giúp mình với mai mình thi rồi ạaaaa
uses crt;
var n,i,s:integer;
begin
clrscr;
n:=1;
s:=0;
repeat
s:=s+n;
n:=n+1;
until s>1000;
writeln(n);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình - nhập vào mảng 1 chiều gồm n số nguyên n nhỏ hơn hoặc bằng 100 - tính tổng các phần tử trong mảng -tính các tổng chẵn ,lẻ trong mảng
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,t1,t2,t3;
int main()
{
cin>>n;
t1=0; t2=0; t3=0;
for (i=1; i<=n; i++)
{
cin>>x;
t1+=x;
if (x%2==0) t2+=x;
else t3+=x;
}
cout<<t1<<" "<<t2<<" "<<t3;
return 0;
}
Đúng 0
Bình luận (0)