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.
Đó 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 .
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.
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;
}
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.