Giúp tôi giải bài toán chuyển số thập phân sang nhị phân bằng lập trình Logo. Rất cảm ơn.
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.
ML
17 tháng 3 2023
Program HOC24;
var s: string;
i,d: byte;
begin
write('Nhap xau: '); readln(s);
while s[1]=#32 do delete(s,1,1);
while length(s)=#32 do delete(s,length(s),1);
while pos(#32#32,s)<>0 do delete(s,pos(#32#32,s),1);
d:=0;
for i:=1 to length(s) do if s[i]=#32 then d:=d+1;
write('Trong xau co ',d+1, ' tu');
readln
end.
16 tháng 3 2023
Đổi 4TB=4096
Số giờ có thể xem phim là:
4096:5=819,2(h)
Số bộ phim có thể xem đc là:
819,2:2,5=327,68(bộ)
Đ/S:........
TN
8
ML
14 tháng 3 2023
Program HOC24;
var i,n: integer;
a: array[1..10000] of integer;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do if (a[i] mod 3=0) and (a[i] mod 5=0) then t:=t+a[i];
write('Tong la: ',t);
readln
end.
NT
16 tháng 3 2023
A = int(input('N = '))
if (A >= 0) and (A <= 10**3):
i = 0
tong = 0
print (i)
while (i <= 10**3):
i += 1
if (i%3==0) and (i%5==0):
if (i <= A):
tong += i
print (i)
print (f'Tổng: {tong}')
TN
0
C++:
#include <iostream> #include <math.h> using namespace std; long decimalToBinary(int decimalnum) { long binarynum = 0; int rem, temp = 1; while (decimalnum!=0) { rem = decimalnum%2; decimalnum = decimalnum / 2; binarynum = binarynum + rem*temp; temp = temp * 10; } return binarynum; } int main() { int decimalnum; cout<<"Nhập vào số thập phân cần chuyển đổi: "; cin>>decimalnum; cout<<"\nSố thập phân sau khi được chuyển thành số nhị phân là: "<<decimalToBinary(decimalnum); cout<<"\n--------------------------------\n"; cout<<"Chương trình này được đăng tại Freetuts.net"; }