H
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
TT
1
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.
KL
1
AP
11 tháng 10 2021
uses crt;
var a:array[1..100] of integer;
i,n,d,tong :integer;
begin
clrscr;
d:=0;
tong:=0;
readln(n);
for i:=1 to n do
readln(a[i]);
end;
for i:=1 to n do
if (a[i]>0) then begin
d:=d+1;
if d=1 then begin writeln('trong day co so nguyen duong '); write(' vi tri cua cac so duong ',i); end
else
begin
tong:=tong+a[i];
write(' ',i);
end;
end
else if ((i=n)and(d=0)) then write(' khong co so duong');
writeln;
writeln(' tong so luong so nguyen duong trong day so: ',d);
writeln(' ton cac so nguyen duong: ',tong);
readln;
end.
TT
1
TT
1
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.
mỗi người giúp em 1 câu thôi có được không ạ:(( trình bày rõ ràng hộ em nha mai thi rùi ToT
24 tháng 12 2020
a) 973
b) 1011101
c) 58
e) 19039
f) 11111101
g) 43
k) 1EA9
l) 401
m) 111001101011
a: \(268_{10}=10C_{16}\)
b: \(12C_{16}=\text{100101100}_2\)