Hãy viết chương trình nhập các số khác 0 rồi tính tổng của các số đó. Chương trình kết thúc khi số được nhập đầu tiên là 0
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var n,i,t1,t2:integer;
begin
clrscr;
t1:=0;
t2:=0;
repeat
readln(n);
if n mod 2=0 then t1:=t1+n
else t2:=t2+n;
until n=0;
writeln(t1,' ',t2);
readln;
end.
uses crt;
var a,t:integer;
begin
clrscr;
t:=0;
repeat
readln(a);
if (a mod 2<>0) then t:=t+a;
until a=0;
writeln(t);
readln;
end.
Bài 1:
#include <bits/stdc++.h>
using namespace std;
long long a[10],n,i,t;
int main()
{
n=0;
do
{
cin>>a[i];
}
while ((a[i]==0) or (n==10));
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
t=0;
for (i=1; i<=n; i++)
if (a[i]%2!=0) t=t+a[i];
cout<<t;
return 0;
}
bạn có thể code bằng c căn bản chỉ dùng printf while vs for thôi đc ko bạn
uses crt;
var n,t1:integer;
s:real;
begin
clrscr;
t1:=0;
s:=1;
repeat
readln\(\left(n\right)\);
if n mod 2=0 then t1:=t1+n
else s:=s*n;
until n=0;
writeln\(\left(t1\right)\);
writeln\(\left(s:4:2\right)\);
readln;
end.
uses crt;
var n,t:integer;
{------------------kiem-tra-so-nguyen-to----------------------------}
function ktnt(x:integer):boolean;
var i:integer;
kt:boolean;
begin
kt:=true;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then
begin
kt:=false;
break;
end;
if kt=true then ktnt:=true
else ktnt:=false;
{----------------------chuong-trinh-chinh------------------------}
begin
clrscr;
t:=0;
repeat
write('Nhap n='); readln(n);
if (n mod 2=0) then t:=t+n;
until ktnt(n)=false;
writeln(t);
readln;
end.
uses crt;
var n,dem:integer;
begin
clrscr;
dem:=0;
repeat
write('Nhap n='); readln(n);
dem:=dem+1;
until n=0;
writeln(dem);
readln;
end.
uses crt;
var x,t,i:integer;
begin
clrscr;
t:=0;
repeat
readln(x);
t:=t+x;
until x=0;
write(t);
readln;
end.
Bạn có còn cách làm nào khác ko? Bởi vì mik lm thuyết trình bày này nên chỉ có thể làm bài trong phạm vi đang học thôi