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 a:array[1..100]of integer;
i,n,k,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
t:=0;
for i:=1 to n do
if a[i] mod k=0 then t:=t+a[i];
writeln(t);
readln;
end.
1:
uses crt;
const fi='songuyen.doc';
var i:integer;
f1:text;
begin
clrscr;
assign(f1,fi); rewrite(f1);
for i:=1 to 10 do write(f1,i:4);
close(f1);
readln;
end.
Var a:array[1..100] of integer;
i,s:integer;
Begin
For i:=1 to 100 do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
If a[i] mod 2 <> 0 then s:=s+a[i];
End;
Write('Tong la ',s);
Readln;
End.
Bài 1:
uses crt;
var n,t,i,d,x:integer;
st:string;
begin
clrscr;
readln(n);
str(n,st);
d:=length(st);
t:=0;
for i:=1 to d do
begin
val(st[i],x);
t:=t+x;
end;
writeln(t);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long i,n,a[1000],dem,t;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
cin>>a[i];
t=0;
for (i=1; i<=n; i++)
if (a[i]%15==0)
{
cout<<a[i]<<" ";
t+=a[i];
}
cout<<endl;
cout<<"Tong cac so chia het cho 3 va 5 la: "<<t;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
int main()
{
int a,b,k;
cin>>a>>b>>k;
for (int i=a; i<=b; i++)
if (i%k==0) cout<<i<<" ";
return 0;
}
program bai_tap;
uses crt;
var i:byte;
begin
clrscr;
for i:= 1 to 10 do
writeln('em hua se no luc het minh ');
readln
end.