Những câu hỏi liên quan
Nguyễn Tấn Tài
Xem chi tiết
Nguyễn Nhật Nam
16 tháng 8 2017 lúc 14:23

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.

Bình luận (2)
Nguyễn Nhật Nam
18 tháng 8 2017 lúc 8:52

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.

Bình luận (0)
Giao Huỳnh
20 tháng 8 2017 lúc 11:00

Lập trình đơn giảnLập trình đơn giản

chúc bạn học tốt!!!ok

Bình luận (1)
Ng Ph Nhung
Xem chi tiết
Minh Lệ
26 tháng 2 2023 lúc 23:04

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

Bình luận (1)
Đẹp Trai Không Bao Giờ S...
Xem chi tiết
Nguyễn Trung Hiếu
17 tháng 3 2019 lúc 20:39

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.

Bình luận (0)
Võ Đức Duy
Xem chi tiết
Tuấn Kiệt Nguyễn
1 tháng 3 2018 lúc 19:29

đá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 

Bình luận (0)
Hoàng Đức Long
Xem chi tiết
Vũ Thành Nam
19 tháng 1 2017 lúc 9:56

Đáp án D

Bình luận (0)
Nguyễn Tiến Đạt
Xem chi tiết
ღ๖ۣۜLinh
24 tháng 6 2019 lúc 9:50

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

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

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

Bình luận (0)

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

Bình luận (0)

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

cách như tú nói 

hc tốt # Silent #

Bình luận (0)
đố ai đoán dc tên mình
Xem chi tiết
hiztagimoto
26 tháng 10 2015 lúc 11:30

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

Bình luận (0)
nguyễn qoang bình an
Xem chi tiết
IS
6 tháng 3 2020 lúc 21:49

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

Bình luận (0)
 Khách vãng lai đã xóa
Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
10 tháng 3 2018 lúc 3:25

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

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

Bình luận (0)