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.

4 tháng 7 2017

chỉ ctv hoặc giáo viên mới lm đc thôi! còn chọn đúng thì nhấn đúng là ok bn!

11 tháng 8 2017

Đó là phần mềm kiểm tra dữ liệu của trang web đó

Muốn tắt thì có dấu X nhỏ ở phía phải của màn hình là xong .

5 tháng 1 2019

Bạn cần nâng cấp chứng chỉ SHA-1 lên SHA-2 nhé

hoặc là đổi DNS google

a: uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 70 do s:=s+i;

write(s);

readln;

end.

b: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=1;

for i:=1 to 80 do

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

write(s);

readln;

end.

18 tháng 3 2023

là sao ạ, mk giải hộ bt cho ngta:))

17 tháng 11 2017

Program bai1;

uses crt;

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

n,i: integer;

begin

clrscr;

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

for i:= 1 to n do

begin

write('nhap a[',i,'] ='); readln(a[i]);

end;

writeln('cac so chan la :');

for i:= 1 to n do

if a[i] mod 2 = 0 then write(a[i] :4);

writeln;

writeln('cac so le la :');

for i:= 1 to n do

if a[i] mod 2 <> 0 then write(a[i] :4);

writeln;

writeln('cac so chia het cho 3 la :');

for i:= 1 to n do

if a[i] mod 3 = 0 then write(a[i] :4 );

readln;

end.

1:

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

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

}

cout<<dem;

return 0;

}

2: 

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

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

}

cout<<dem;

return 0;

}

24 tháng 11 2021

1:

Program baitap1;

Uses crt;

Var A:array[1..200] of integer;

      S,i:integer;

Begin

Clrscr;

S:=0;

For i:=1 to 10 do

     Begin

     Write('A[',i,']=');

     Readln(A[i]);

     If (A[i] mod 2=1) then S:=S+A[i];

     End;

Writeln('Tong cac phan tu co gia tri le:',S);

Readln

2:

Program baitap2;

Uses crt;

Var A:array[1..200] of integer;

      S,i:integer;

Begin

Clrscr;

S:=0;

For i:=1 to 15 do

     Begin

     Write('A[',i,']=');

     Readln(A[i]);

     If (A[i] mod 2=0) then S:=S+A[i];

     End;

Writeln('Tong cac phan tu co gia tri chan:',S);

Readln

End.

End.

25 tháng 11 2021

D. Ctrl + U + I