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.

15 tháng 1 2022

rồi câu hỏi chỗ nào v ?

16 tháng 8 2017

const
fi='lhcs.inp';
fo='lhcs.out';
a:array[0..9] of byte=(1,0,0,0,1,0,1,0,2,1);
var
f:text;
t,n:integer;
procedure inp;
begin
assign(F,fi);
reset(F);
read(f,n);
close(F);
end;
procedure out;
begin
assign(f,fo);
rewrite(F);
t:=0;
while n<>0 do
begin
t:= t+a[n mod 10];
n:= n div 10
end;
write(f,t);
close(F);
end;
BEGIN
INP;
OUT;
END.

18 tháng 8 2017

const
fi='lohongcs.inp';
fo='lohongcs.out';
var
f:text;
i,s:integer;
n:longint;
a:array[0..9] of byte;
begin
assign(f,fi);
reset(f);
read(f,n);
for i:= 1 to n do
read(f,a[i]);
a[8]:=2;
a[0]:=1; a[4]:=1; a[6]:=1; a[9]:=1;
a[1]:=0; a[2]:=0; a[3]:=0; a[5]:=0; a[7]:=0;
close(F);
assign(f,fo);
rewrite(F);
s:=0;
repeat
i:=n mod 10;
s:=s+a[i];
n :=n div 10 ;
until n=0;
write(f,s);
close(F);
end.

26 tháng 2 2023

Đề yêu cầu gì bạn nhỉ?

27 tháng 2 2023

Yêu cầu: Viết chương trình đếm xem số n (có 3 chữ số) có bao nhiêu lỗ.

như này ạ.

 

Câu 3: (3,5 điểm) Lỗ hổng chữ số LHCS.PAS Các chữ số từ 0 đến 9, nếu một chữ số bất kỳ có một đường khép kín thì ta gọi chữ số đó có 1 lỗ hổng, có hai đường khép kín thì ta gọi số đó có 2 lỗ hổng, và không có đường khép kín nào thì ta gọi chữ số đó có 0 lỗ hổng. Vậy các chữ số 0, 4, 6, 9 có 1 lỗ hổng, chữ số 8 có 2 lỗ hổng và các chữ số 1, 2, 3, 5, 7 có 0 lỗ hổng. Cho một số nguyên...
Đọc tiếp

Câu 3: (3,5 điểm) Lỗ hổng chữ số

LHCS.PAS

Các chữ số từ 0 đến 9, nếu một chữ số bất kỳ có một đường khép kín thì ta gọi chữ số đó có 1 lỗ hổng, có hai đường khép kín thì ta gọi số đó có 2 lỗ hổng, và không có đường khép kín nào thì ta gọi chữ số đó có 0 lỗ hổng. Vậy các chữ số 0, 4, 6, 9 có 1 lỗ hổng, chữ số 8 có 2 lỗ hổng và các chữ số 1, 2, 3, 5, 7 có 0 lỗ hổng.

Cho một số nguyên dương N (1 ≤ N ≤ 2147483647), ta luôn đếm được số lỗ hổng của các chữ số xuất hiện trong nó.

Ví dụ: Với N = 388247 thì ta đếm được N có 5 lỗ hổng.

Yêu cầu: Đếm số lỗ hổng của số nguyên dương N.

Dữ liệu vào: Nhập số nguyên dương N từ bàn phím.

Dữ liệu ra: In số lỗ hổng của số nguyên dương N ra màn hình.

Ví dụ: Nhập vào từ bàn phím N = 388247

Kết quả in ra màn hình: 5

1
17 tháng 3 2019

const
nhap='bai1.inp';
xuat='bai1.out';
var n,m,u,d:int64;
begin
assign(input,nhap);reset(input);
assign(output,xuat);rewrite(output);
read(n);
while n<>0 do
begin
m:=n mod 10;
n:=n div 10;
if (m=1) or (m=2) or (m=3) or (m=5) or
(m=7) then d:=0;
if (m=0) or (m=4) or (m=6) or (m=9)
then d:=1;
if m=8 then d:=2;
u:=u+d;
end;
writeln(u);
close(input);close(output);
end.

1 tháng 3 2018

đáp án 21 nhưng mình mới vẽ ra có 19 thôi. Đáp án 21 chuẩn đó theo đáp án của MYTS 

19 tháng 1 2017

Đáp án D

https://olm.vn/hoi-dap/detail/2783478102.html

Xem tại link này(mình gửi cho)

Học tốt!!!!!!!!!!!!!!!!

kham khảo 

Câu hỏi của Nguyễn Võ Trí Dũng - Toán lớp 4 - Học toán với OnlineMath

vào thống kê hỏi đáp của mk có chữ màu xanh trong câu trả lời này nhấn zô đố sẽ ra 

hc tốt

26 tháng 10 2015

15 con duong di tu Ha Noi den Phu Tho 

so nho trong hai so la 78

hai bai nay la toan Violympic lop 6 phai khong ,minh lam roi bao dam dung

6 tháng 3 2020

diện tích xung quanh

(6+4)x2x3=60m3

Nếu ko có lỗ hổng thì sau 5 h , ng ta bươm đc bao nhiêu m3 nước

16.5=80m3

=> số m3 nước chảy ra trong 5h là

80-60=20m3

=> 1h lỗ hổng chay đi số m3 nước là

20m3:5=4m3

mình ko chắc nhá . zì mình quên là tính diện tích xung quanh hay toàn phần r

10 tháng 3 2018

Gọi số cần tìm là x a b , trong đó: a, b là các chữ số; x ∈ N.

Khi viết thêm chữ số 0 vào giữa chữ số hàng chục và chữ số hàng đơn vị ta được số mới là  x a 0 b

Theo đề bài, ta có:

x a 0 b = 9. x a b

<=> 1000x + 100a + b = 9(100x + 10a + b)

<=> 1000x + 100a + b = 900x + 90a + 9b

<=> 100x + 10a = 8b

<=> 50x + 5a = 4b

Vì b≤9 nên 4b≤4.9 = 36, do đó: 50x + 5a ≤ 36 => x = 0

Khi đó số cần tìm là a b , với 5.a = 4.b

Vì a0 và a, b là các chữ số nên ta có a = 4. Từ đó suy ra b = 5.

Vậy số cần tìm là 45