Question

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

Answer 1

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.

Answer 2

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