Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Giap Nguyen Van
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 3 2022 lúc 15:48

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.

日光
Xem chi tiết
Ng Ngọc
10 tháng 3 2022 lúc 9:46

???

Kaito Kid
10 tháng 3 2022 lúc 9:46

???

Keiko Hashitou
10 tháng 3 2022 lúc 9:46

ko đăng linh tinh

Tai Lam
Xem chi tiết
ERROR
9 tháng 5 2022 lúc 21:47

refer

program dem;

uses crt;

var n,i,j,S: integer;

      a:array[1..100] of integer;

begin

i:=0;

S:=0;

while(readln(n)) do

begin

 if(n:=0) then break;

 i:=i+1;

 a[i]:=n;

end;

for j:=1 to i do 

begin

 if(a[j] mod 2 <> 0) then S:=S+a[j];

end;

write(‘Tong cua cac so le la: ‘,S);

readln;

Tai Lam
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 5 2022 lúc 23:10

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.

việt hoàng
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 1 2022 lúc 7:43

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;

}

Nguyễn Ally
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 8 2021 lúc 0:22

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.

Logan
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 9 2021 lúc 21:40

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.

huynh phuong
Xem chi tiết
Nguyễn Lê Phước Thịnh
1 tháng 3 2021 lúc 12:43

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.

Trần Long
Xem chi tiết
Xyz OLM
7 tháng 2 2023 lúc 12:03