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.
a: \(268_{10}=10C_{16}\)
b: \(12C_{16}=\text{100101100}_2\)
Câu 3
Var st:string;
i,d:integer;
Begin
Write('Nhap xau ky tu ');readln(st);
For i:=1 to length(st) do
If st[i] in ['0'..'9'] then d:=d+1;
Write('Co ',d,' ky tu so');
Readln
End.
Câu 4
Var a:array[1..1000] of integer;
i,n:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i);readln(a[i]);
End;
Write('Cac so chia het cho 3 hoac 5 la: ');
for i:=1 to n do
If (a[i] mod 3 = 0) or (a[i] mod 5 = 0) then write(a[i]:8);
Readln
End.
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.
Câu 1:
Input: hai số a,b
Output: UCLN(a,b)