Filonov,
var n,q,w,e,r,t,y: integer;
begin
readln(n);
q:=N div 100000;
w:=N div 10000 mod 10;
e:=N div 1000 mod 10;
r:=N div 100 mod 10;
t:=N div 10 mod 10;
y:=N mod 10;
if q+w+e=r+t+y then write("число счастливое") else write("число не счастливое");
end.
---
есть другой вариант через строки
var n:string;
begin
readln(n);
if StrToFloat(n[1])+StrToFloat(n[2])+StrToFloat(n[3])=StrToFloat(n[4])+StrToFloat(n[5])+StrToFloat(n[6]) then write("число счастливое") else write("число не счастливое");
end.
Ссылка на пост
26 июн 2007 в 11:14