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.

24 tháng 8 2017

uses crt;
var s:string;
a:array[1..100] of integer;
n,i,k,gt:integer;
begin
clrscr;
write('nhap vao xau nhi phan:');
readln(s);
for i:=1 to length(s) do
if s[i]='1' then
a[i]:=1
else
a[i]:=0;
n:=0;
for i:=1 to length(s) do
begin
gt:=1;
for k:=1 to length(s)-1 do
gt:=gt*2;
n:=n+a[i]*gt;
end;
write('so thap phan la:',n);
readln;
end.

-Cho số n ở hệ cơ số 10, có không quá 20 chữ số và không chứa các số 0 không có nghĩa ở đầu. Bằng cách xóa một hoặc một vài chữ số liên tiếp của n (nhưng không xóa hết tất cả các chữ số của n) ta nhận được những số mới. Số mới được chuẩn hóa bằng cách xóa các chữ số 0 vô nghĩa nếu có. Tập số nguyên D được xây dựng bằng...
Đọc tiếp

-Cho số n ở hệ cơ số 10, có không quá 20 chữ số và không chứa các số 0 không có nghĩa ở đầu. Bằng cách xóa một hoặc một vài chữ số liên tiếp của n (nhưng không xóa hết tất cả các chữ số của n) ta nhận được những số mới. Số mới được chuẩn hóa bằng cách xóa các chữ số 0 vô nghĩa nếu có. Tập số nguyên D được xây dựng bằng cách đưa vào nó số n, các số mới khác nhau đã chuẩn hóa và khác n. Ví dụ, với n = 1005 ta có thể nhận được các số mới như sau:

♦ Bằng cách xóa một chữ số ta có các số: 5 (từ 005), 105, 105, 100;

♦ Bằng cách xóa hai chữ số ta có các số: 5 (từ 05), 15, 10;

♦ Bằng cách xóa 3 chữ số ta có các số: 5 và 1.

-Tập D nhận được từ n chứa các số {1005, 105, 100, 15, 10, 5, 1}. Trong tập D này có 3 số chia hết cho 3, đó là các số 1005, 105 và 15.

-Yêu cầu: Cho số nguyên n. Hãy xác định số lượng số chia hết cho 3 có mặt trong tập D được tạo thành từ n.

-Dữ liệu: Vào từ file văn bản NUMSET.INP gồm một dòng chứa số nguyên n.

- Kết quả: Đưa ra file văn bản NUMSET.OUT một số nguyên – số lượng số chia hết cho 3 tìm được.

VD: dayso.inp:5

dayso.out:9

0
Steve trưc nhật vì vậy hôm nay bạn đến trường sớm, giặt khăn lau bảng và xóa bảng. Đang xóa bỗng Steve nhận thấy dãy số mà mình đã xóa một phần khá đặc biệt, phần đầu của nó là 1 2 3 2 3 4 3 4 5 4 5 6 5 6 7 Đáng tiếc, phần còn lại của dãy đã bị xóa mất. Cuối cùng Steve cũng xóa xạch bảng trước khi trống vào lớp vang lên, nhưng dãy số trên vẫn...
Đọc tiếp

Steve trưc nhật vì vậy hôm nay bạn đến trường sớm, giặt khăn lau bảng và xóa bảng. Đang xóa bỗng Steve nhận thấy dãy số mà mình đã xóa một phần khá đặc biệt, phần đầu của nó là

1 2 3 2 3 4 3 4 5 4 5 6 5 6 7

Đáng tiếc, phần còn lại của dãy đã bị xóa mất. Cuối cùng Steve cũng xóa xạch bảng trước khi trống vào lớp vang lên, nhưng dãy số trên vẫn cứ lởn vởn mãi trong đầu.

Buổi tối, khi lên giường ngủ, Steve lại nghĩ về dãy số này. Steve nhận thấy số 1 xuất hiện 1 lần trong dãy, số 2 xuất hiện 2 lần và lần đầu ở vị trí thứ 2, số 3 xuất hiện 3 lần và lần đầu ở vị trí thứ 3, nhưng số 4 thì lần đầu tiên xuất hiện không ở vị trí thứ 4. Tổng quát hơn số k sẽ xuất hiện lần đầu ở vị trí thứ mấy trong dãy.

Bạn có thể giúp Steve tìm ra vị trí xuất hiện đầu tiên của số nguyên k(k<=1 tỷ) trong dãy không?

VD: NUM25.inp :5

NUM25.out :9

vậy vị trí xuất hiện đầu tiên của 5 trong dãy số đó là 9

2
22 tháng 2 2019

đau đầu quá!

23 tháng 2 2019

dễ mà, chỉ là t ko làm dc k=1 tỷ thôi

uses crt;

var a:array[1..100]of integer;

n,i,max,min,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

for i:=1 to n do 

  if max<a[i] then max:=a[i];

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Gia tri lon nhat la: ',max);

writeln('Gia tri nho nhat la: ',min);

writeln('Trung binh cua day so la: ',t/n:4:2);

readln;

end.

uses crt;

var a:array[1..100]of integer;

n,i:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

if n<=0 then writeln('Ban nhap sai, yeu cau nhap lai');

until n>0;

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do 

  if a[i] mod 2=0 then write(a[i]:4);

readln;

end.

19 tháng 4 2020

Trúc chó : Đúng nhé.

18 tháng 4 2020

Bài 2:

Program hotrotinhoc;

var i: byte;

begin

write('5 so tu nhien dau tien la : ');

for i:=0 to 4 do write(i,' ');

readln

end.

Bài 3:

Program hotrotinhoc;

var n,i: integer;

s: real;

begin

write('N='); readln(n);

i:=0;

while i<n do

begin

inc(i);

s:=s+1/i;

end;

write('S=',s:1:2);

readln

end.

16 tháng 12 2018

uses crt;

var

a,b: integer;

begin

clrscr;

write('Nhap so thu nhat: ');readln(a);

write('Nhap so thu hai: ');readln(b);

writeln('Tong ',a,' va ',b,' la: ',a+b);

readln

end.

21 tháng 12 2018

Câu 1:

Var

cv,s,a:integer;

begin

write('nhap vao canh hinh vuong:');readln(a);

s:=a*a;

cv:=a*4;

Writeln('chu vi hinh vuong la:',cv);

WRiteln('dien tich hinh vuong la:',s);

readln

end.

Chọn B

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,dem;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

dem=0;

for (i=1; i<=n; i++)

if (a[i]%2!=0) dem++;

cout<<dem;

return 0;

}