K
Khách

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,dem:integer;

begin

clrscr;

dem:=0;

repeat

write('Nhap n='); readln(n);

dem:=dem+1;

until n=0;

writeln(dem);

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;

}

24 tháng 1 2022

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

 

12 tháng 3 2021

12 tháng 3 2021

Program hotrotinhoc;

var s: string;

t,c,i: byte;

begin

write('Nhap s:'); readln(s);

t:=0;

for i:=1 to length(s) do

if s[i] in ['1'..'9'] then

begin

val(s[i],c);

t:=t+c;

end;

write(t);

readln

end.

Thu gọn

1:

#include <bits/stdc++.h>

using namespace std;

long long dem,i,n,x;

int main()

{

cin>>n;

dem=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x%2==0) dem++;

}

cout<<dem;

return 0;

}

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x%3==0) t+=x;

}

cout<<t;

return 0;

}

Bài 2: 

#include <bits/stdc++.h>

using namespace std;

string st;

int d;

int main()

{

getline(cin,st);

d=st.length();

cout<<d;

return 0;

}

19 tháng 1 2022

Bài 1:

Var so,i,n,dem:integer;

Begin

Write('Nhap so luong so n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i);readln(so);

If so mod 2 = 0 then dem:=dem+1;

End;

Write('Co ',dem,' so chan');

Readln;

End.

Bài 2:

Var st:string;

Begin

Write('Nhap vao xau ki tu ');readln(st);

Write(' Xau vua nhap co do dai la ',length(st));

Readln;

End.

14 tháng 3 2023

so_am = 0

so_duong = 0

while True:

     n = int(input("Nhap vao mot so nguyen: "))

     if n == 0:

          break

     elif n < 0:

          so_am += 1

     else:

          so_duong += 1

print("So am: ", so_am)

print("So duong: ", so_duong)

uses crt;

var s:string;

i,d:integer;

begin

clrscr;

write('Nhap xau S:'); readln(s);

d:=length(s);

for i:=1 to d do 

  if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then delete(s,i,1);

writeln('Xau sau khi xoa het ki tu chu la: ',s);

readln;

end.

9 tháng 5 2022

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;