TT
1
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
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.
8 tháng 2 2022
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;
}
GIÚPGIÚP MIK NA
ML
29 tháng 10 2020
Lần sau bạn nhớ nêu rõ yêu cầu đề bài là viết chương trình hay viết thuật toán nhé. Bạn chọn là Tin học 10 vì đa số lớp 10 học viết thuật toán nên mình sẽ viết thuật toán.
- Thuật toán liệt kê:
+ Bước 1: Nhập n; dãy a1,a2,a3,...,an
+ Bước 2: i←1; d←0;
+ Bước 3: Nếu i>n thì in ra d và kết thúc thuật toán
+ Bước 4: Nếu ai = 5 thì d←d+1;
+ Bước 5: i←i+1; quay lại bước 3
- Thuật toán sơ đồ khối:
NL
Bn nèo có avatar này chưa
1
2 tháng 11 2016
ukm,đây là ảnh mạng,rất nhìu ngừ có,nhưng ảnh của m chỉ có mk m có,mà người ta có cx ko dám up lên avt đâu nhỉ oOo_HằNg MoOn_oOo
18 tháng 3 2023
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.
Áo team .
Áo team 
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!