Mạng máy tính và internet

helpme

in tat ca cac so co 5 chu so sao cho cac chu so cua no la 1 day tang pascal

giúp em vs mn

Nguyễn Lê Phước Thịnh
11 tháng 2 2020 lúc 16:49

uses crt;
var d,x,kt,j:integer;
st:string;
a:array[1..100]of longint;
i:longint;
begin
clrscr;
for i:=10000 to 99999 do
begin
str(i,st);
d:=length(st);
for j:=1 to d do
val(st[j],a[j],x);
kt:=0;
for j:=1 to d-1 do
if a[j]>=a[j+1] then kt:=1;
if kt=0 then write(i:6);
end;
readln;
end.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
11 tháng 2 2020 lúc 16:50

Kết quả bài này nó sẽ ra thế này:

Hỏi đáp Tin học

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
van pham
Xem chi tiết
nightmare Kurumi
Xem chi tiết
helpme
Xem chi tiết
Dương Thanh Ngân
Xem chi tiết
Nhật Nguyễn
Xem chi tiết
Dorris Linh
Xem chi tiết
Trần Nguyễn Hoài Thư
Xem chi tiết
Trần Huỳnh Nhật Linh
Xem chi tiết
Nguyễn Thị Tuyết Trân
Xem chi tiết