Trang chủ Tin Học Lớp 8 Lm hộ mình câu 6 tin học 8 trang 55...

Lm hộ mình câu 6 tin học 8 trang 55 vs ạ Mik hok chụp ảnh đc câu hỏi 1414439 - hoctapsgk.com

Câu hỏi :

Lm hộ mình câu 6 tin học 8 trang 55 vs ạ Mik hok chụp ảnh đc

Lời giải 1 :

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.

Thảo luận

Có thể bạn quan tâm

Tin Học Lớp 8 Bài 1: Viết chương trinh tổng, tich của N số tự nhiên đầu tiên, với N là số tự nhiên dưoc nhập vào từ bàn phim. ...

Tin Học Lớp 8 Bài 3: (6 điểm) Lưu thành tên file bai3.pas Công ty điện lực thông báo giá điện sinh hoạt của các hộ gia đình cụ thể như sau: + Từ 0 – 100 số: giá là 1.242 đ/1 ...

Tin Học Lớp 8 Viết chương trình bằng ngôn ngữ lập trình Free Pascal yêu cầu người dùng nhập vào các số nguyên là chiều dài, chiều rộng hình chữ nhật, bán kính đường tròn. Sa ...

Tin Học Lớp 8 Viết chương trình tính trung bình cộng của bốn số câu hỏi 1414831 - hoctapsgk.com ...

Tin Học Lớp 8 Viết chương trình nhập vào 3 số dương a,b,c.KIểm tra và in ra màn hình kết quả kiểm tra 3 số đó có thể là độ dài các cạnh của tam giác vuông k? ...

Bạn có biết?

Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.

Nguồn : Wikipedia - Bách khoa toàn thư

Tâm sự 8

Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!

Nguồn : ADMIN :))