Программа на Turbo Pascal

15 ноября 2009

Задание: Получить все шестизначные счастливые номера, по целое число N, удовлетворяющее условию 0<=N<=999999, говорят, что оно представляет собой счастливый номер, если сумма трёх его первых цифр, равно трём его последних цифр, если в числе меньше шести цифр, то недостающие начальные значение цифры считаются нулями. 

Program SchastlivieChisla;

uses crt;

VAR m,a,id,ig,f,o,p,e,w,q,y,r,t,u,i: longint;

BEGIN

clrscr;

textcolor(green);

writeln(‘——————————————————————‘);

writeln(‘ Добро пожаловать в Генератор Счастливых чисел ‘);

writeln(‘——————————————————————‘);

writeln(‘ Введите число, до этого значения мы сосчитаем счастливые числа ‘);

writeln(‘ Это число должно быть больше нуля, но меньше 999999 ‘);

readln(a);

if a>=0 then

begin

if a<=999999 then

writeln (‘ Вы ввели правильное значение, сейчас будет счастье ‘) else

begin

writeln (‘ Вы ввели неправильное значение, счастья не будет ‘);

readln;

exit;

end;

end else

begin

writeln (‘ Вы ввели неправильное значение, счастья не будет ‘);

readln;

exit;

end;

for m:=1000 to a do

begin

q:=m div 100000;

w:=m mod 100000;

e:=w div 10000;

r:=w mod 10000;

t:=r div 1000;

y:=r mod 1000;

u:=y div 100;

i:=y mod 100;

o:=i div 10;

p:=i mod 10;

f:=p div 1;

ID:=q+e+t;

ig:=u+o+f;

if id=ig then

if m<10000 then writeln(‘Счастливое число = 00′, m) else

if M<100000 then writeln (‘Счастливое число = 0′, m) else

writeln(‘Счастливое число = ‘ , m);

end;

writeln (‘ Вверху эказаны все счастливые числа ‘);

writeln (‘Если выше не вывелось ни одного числа, значит до этого вашего’);

writeln (‘ числа нет ни одной счастливой цифры ‘);

readln;

END.

RSS-комментарии

Оставьте свой отзыв

Подписаться, не комментируя