Bạn Katherine Lilly Filbert đã viết

Bạn Katherine Lilly Filbert đã viết chương trình cho máy tính như sau và mày tính cho ra kết quả duy nhất là: 2178 x 4 = 8712.

Uses crt;
Var a,b,c,d,e:integer;
BEGIN
clrscr;
For a:=1 to 9 do
For b:=0 to 9 do
For c:=0 to 9 do
For d:=1 to 9 do
For e:=1 to 9 do
If ((a*1000+b*100+c*10+d)*e = d*1000+c*100+b*10+a) and (ab) and (ac) and
(ad) and (ae) and (bc) and (bd) and (be) and (cd) and (ce) and
(de) then Writeln('a=',a,' b=',b,' c=',c,' d=',d,' e=',e);

Readln
END.

Kết quả (Việt) 1:

Bạn Katherine Lilly Filbert đã Matrix chương trình cho máy tính như sau và mày tính cho ra kết tên duy nhất là: 2178 x 4 = 8712.Sử dụng màn hình crt;Var a, b, c, d, e:integer;BẮT ĐẦU clrscr; Cho một: = 1 to 9 làm Cho b: = 0-9 làm Cho c: = 0-9 làm Cho d: = 1 to 9 làm Cho e: = 1 to 9 làm Nếu ((một * 1000 + b * 100 + c * 10 + d) * e = d * 1000 + c * 100 + b * 10 + một) và (a <> b) và (<> c) và (một <> d) và (a <> e) và (b <> c) và (b <> d) và (b <> e) và (c <> d) và (c <> e) và (d <> e) sau đó Writeln ('a = ', ' b =', b,' c = ', c,' d = ', d,' e =', e); ReadlnKẾT THÚC.

Kết quả (Việt) 2:

Bạn Katherine Lilly Filbert was viết chương trình cho máy tính như sau and mày tính cho ra kết quả duy nhất are: 2178 x 4 = 8712. Sử dụng crt; Var a, b, c, d, e: integer; BEGIN clrscr; Đối với a: = 1-9 làm cho b: = 0-9 làm cho c: = 0-9 làm Ví d: = 1-9 làm cho e: = 1-9 làm Nếu ((a * 1000 + b * 100 + c * 10 + d) * e = d * 1000 + c * 100 + b * 10 + a) và (a <> b) và (a <> c) và (a <> d) và (a <> e ) và (b <> c) và (b <> d) và (b <> e) và (c <> d) và (c <> e) và (d <> e) sau đó writeln ( 'a =' , một, 'b =', b, 'c =', c, 'd =', d, e = ', e); Readln END.