Question

Из ЕГЭ! ЛЕГКО. Решите пожалуйста из файла

Answer 1

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]<nn[2]) and (nn[2]<nn[3]) and (nn[3]<nn[4]) and (nn[4]<nn[5]) and (nn[5]<nn[6])

   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])<(nn[1]+nn[2]+nn[5]+nn[6])

   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