10.
program raf105;
var
n,counter: real;
s: string;
nn:array[1..6] of integer;
x: boolean;
o,i:integer;
begin
n:= 100000-1;
while n < 999999 do
begin
n+= 1;
x:= true;
str(n,s);
for i:=1 to 6 do
val(s[i],nn[i],o);
if (nn[1]
then x:= false;
if x
then counter+= 1;
end;
writeln('Количество счастливых шестизначных чисел: ',counter);
end.
11.
program raf105;
var
n,counter: real;
s: string;
nn:array[1..6] of integer;
x: boolean;
o,i:integer;
begin
n:= 100000-1;
while n < 999999 do
begin
n+= 1;
x:= true;
str(n,s);
for i:=1 to 6 do
val(s[i],nn[i],o);
if (nn[3]+nn[4])
then x:= false;
if x
then counter+= 1;
end;
writeln('Количество счастливых шестизначных чисел: ',counter);
end.
12.
program raf105;
var
n,counter: real;
s: string;
nn:array[1..6] of integer;
x: boolean;
o,i:integer;
begin
n:= 100000-1;
while n < 999999 do
begin
n+= 1;
x:= true;
str(n,s);
for i:=1 to 6 do
val(s[i],nn[i],o);
if (nn[1]+nn[6])>(nn[2]+nn[3]+nn[4]+nn[5])
then x:= false;
if x
then counter+= 1;
end;
writeln('Количество счастливых шестизначных чисел: ',counter);
end.
Язык PascalABC