hiện nay biển số ngũ Linh 5 số giống nhau cũng được xem là biển số xe đẹp và hiếm Em hãy viết chương trình để kiểm tra biển số xe( 5 số) bất kì được nhập từ bàn phím có phải là biển số mũ Linh hay không khai báo thêm biến chuc_nghin sau đó so sánh giá trị của năm biến: chục

baongoc.online.127

2 năm trước

hiện nay biển số ngũ Linh 5 số giống nhau cũng được xem là biển số xe đẹp và hiếm Em hãy viết chương trình để kiểm tra biển số xe( 5 số) bất kì được nhập từ bàn phím có phải là biển số mũ Linh hay không khai báo thêm biến chuc_nghin sau đó so sánh giá trị của năm biến: chục_nghìn ,nghìn ,trăm chục ,đơn _vị có sử dụng câu lệnh ghép begin.. end

Loga Sinh Học lớp 12

0 lượt thích 19 xem

1 trả lời

Thích Trả lời

nguyenthunga2k3

Program NN;
Uses crt;
Var a,b,c,d,e,s: longint;
Begin
Clrscr;
Write('Nhap so: '); Readln(s);
a:=s div 10000;
s:=s mod 10000;
b:=s div 1000;
s:=s mod 1000;
c:=s div 100;
s:=s mod 100;
d:=s div 10;
s:=s mod 10;
e:=s;
If (a=b) and (b=c) and (c=d) and (d=e) then Write('YES')
Else Write('NO');
Readln
End.

Vote (0) Phản hồi (0) 2 năm trước

Log2703

uses crt;

var n, a, b, c, d, e : longint;

begin

clrscr;

write('Nhap so : '); readln(n);

if (n >= 11111) and (n <= 99999) then

begin

a := n div 10000;

b := (n - a * 10000) div 1000;

c := (n - a * 10000 - b * 1000) div 100;

d := (n - a * 10000 - b * 1000 - c * 100) div 10;

e := n - a * 10000 - b * 1000 - c * 100 - d * 10;

if (a = b) and (b = c) and (c = d) and (d = e) then

write(n,' la so ngu linh') else write(n,' khong la ngu linh');

end else write(n,' khong la so ngu linh');

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Ai giúp e với ạ🙏🏻🙏🏻🙏🏻😫😫

Haizz, chờ mãi cx có điểm, đc có 7,6 anh, buồnnnnnnnnnnn anh là cái môn mà suốt từ năm lớp 3 tới h mk ghét nhất nhg cx vui vì đứng thứ 3 trong khối 2 tuần nữa ktra hk vẽ anime nản vì ktra

Cho mình đáp án ko cần giải thích nha

Viết 1 đoạn văn ngắn diễn tả Tình cảm của em đối với làng quê của mình (15-20 dòng) văn nghị luận nha????

Thực hiện phép tính ( với đk các phân thức dưới đây có nghĩa): a, 18x^2y^2/15z *5z^3/9x^3y b, 5x+5y/4x-4y *6x-6y/25x+25y

Giúp mình nha trả tim tặng điểm cho

Chụp cho mình xem hình vở bạn ghi bài này lúc học trên lớp nha

Viết lại câu tương đương 1. My school is bigger than your school —>Your school... 2. What is the price of an ice cream? —>How much... 3. There is suop and chicken in the menu —>The menu... 4. She prefers beef noodle suop to chicken noodle suop —>She likes...

Viết môt đoan văn tư sư ngắn (không quá 15 dòng có kết hơp yếu tố nghi luân và miêu ta môi tâm Tâm trang cua em sau sau khi đe xay ra chuyên có lôi với ban

Cho góc xOy khác góc bẹt có Ot là tia phân giác. Qua điểm H thuộc Ot. Kẻ đường vuông góc với Ot, nó cắt Ox và Oy theo thứ tự ở A và B a) CM : OA=OB b) Lấy điểm C nằm giữa O và H . AC cắt Oy ở D. Trên tia Ox lấy điểm E sao cho OE=OD. CM : B,C,E thằng hàng ( vẽ cả hình ra nhé)

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến