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.

22 tháng 5 2020

Đù gặp chú trên này luôn

uses crt;

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

i,n,t,dem:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

dem:=0;

t:=0;

for i:=1 to n do 

begin

if a[i] mod 3=0 then dem:=dem+1;

end;

for i:=1 to n do t:=t+a[i];

writeln('So phan tu chia het cho 3 la: ' ,dem);

writeln('Tong cac so la: ',t);

readln;

end.

30 tháng 5 2020

Program HOC24;

var i,n: integer;

t: longint;

begin

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

t:=1; i:=1;

while i<n do

begin

if i mod 2=1 then t:=t*i;

i:=i+1;

end;

write(t);

readln

end.

Câu 1: 

Dùng for..do

uses crt;

var a,i:integer;

begin

clrscr;

a:=0;

for i:=1 to 100 do 

  if i mod 2=0 then a:=a+i;

writeln(a);

readln;

end.

Dùng While...do

uses crt;

var a,i:integer;

begin

clrscr;

a:=0;

i:=1;

while i<=100 do 

  begin

if i mod 2=0 then a:=a+i;

inc(i);

end;

writeln(a);

readln;

end.

31 tháng 3 2022

lx :))))

31 tháng 3 2022

mình ko thấy đề bài 

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

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

}

cout<<dem;

return 0;

}

 

uses crt;

var a,i:integer;

begin

clrscr;

a:=65;

while a<>0 do 

begin

i:=a mod 2;

a:=a div 2;

write(i);

end;

readln;

end.

#include <bits/stdc++.h>

using namespace std;

int n,i,x,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

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

}

cout<<dem;

return 0;

}

 

 

#include <bits/stdc++.h>

using namespace std;

int n,i,x,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

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

}

cout<<dem;

return 0;

}