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
N
0
2 tháng 4 2022
#include <bits/stdc++.h>
using namespace std;
long long a[50],i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++)
if (a[i]%2==0) cout<<a[i]<<" ";
return 0;
}
29 tháng 10 2019
uses crt;
var i:integer;
begin
clrscr;
writeln('bang nhan 5 la: ');
for i:=1 to 9 do
writeln(5*i,' ');
readln;
end.
QB
1
1 tháng 2 2019
(số vừa chia hết cho 2 mà vừa chia hết cho 3 thì sẽ chia hết cho 6)
var array: K[1..100] of integer;
array: T[1...100] of integer;
j,i,n: integer;
begin
writeln ('nhap n'); readln (n);
repeat
writeln ('nhap lai'); readln(n);
until (n<100);
j:=1;
for i:= 1 to n do
begin
writeln ('nhap phan tu thu ',i); readln (k[i]);
if k[i] mod 6 = 0 then
begin
t[j]:=k[i];
j:=j+1;
end;
end;
for i:= 1 to j do
if i mod 10 = 0 then writeln(t[i]) else write(t[i],' ');
readln;
end.
(vì bảng mình không biết là bao nhiêu số 1 dòng nên mình lấy đại 10 nha, mình chỉ học mảng 1 chiều)
2 tháng 2 2019
cho mình sửa lại câu lệnh for là
for i:=1 to j-1 do ...
(xin lỗi bạn vì mình có sai sót nhưng mong là hết sai rồi :)))
1 tháng 11 2020
Cho 1 tháng=30 ngày chứ ko theo lịch đúng ko bạn?
Program thang;
uses crt;
var a,ng,th:integer;
Begin
clrscr;
write('Nhap so:'); readln(a);
a:=a mod 360;
ng:=a mod 30;
th:=a div 30+1;
if ng=0 then
begin
ng:=30;
dec(th);
end;
write('Ngay ',ng,'/',th);
readln;
End.
17 tháng 6 2020
const fi='dulieu.txt';
fo='ketqua.txt';
var f1,f2:text;
m,n,t,i:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,m,n);
t:=0;
for i:=m to n do
if i mod 3=0 then t:=t+i;
writeln(f2,t);
close(f1);
close(f2);
end.