Составить программу, определяющую количество счастливых билетов на катушке, если меньший номер билета -N, больший - М

@Сашааа · Регистрация: 10.04.2010

Author24 — интернет-сервис помощи студентам

Имеется часть катушки с автобусными билетами. Номер билета шестизначный. Составить программу, определяющую количество счастливых билетов на катушке, если меньший номер билета -N, больший - М (билет является счастливым, если сумма первых трех его цифр равна сумме последних трех). (решить через функцию)

@Angel-dm · 18.05.2010, 23:38

Незнаю как через функцию, но простое решение вот:

Pascal

Program sd;
uses crt;
var
a,b,c,x,s,y,z,r,p: integer;
Begin
clrscr;
Writeln('Введите  номер билета:');
readln(x);
s:=x div 100000;
r:=x div 10000 mod 10;
y:=x div 1000 mod 10;
c:=x div 100 mod 10;
a:=x mod 100 div  10;
b:=x mod 10;
z:=y+r+s;
p:=a+b+c;
if z=p then
begin
write('билет счастливый');
writeln('  ',z,' = ',p);
end
else
writeln('билет не счастливый   '  ,z,' <> ',p);
readln;
End.

может поможет)))

@Сашааа · 19.05.2010, 19:57 **[ТС]**

Сообщение от Angel-dm

Незнаю как через функцию, но простое решение вот:

Pascal

Program sd;
uses crt;
var
a,b,c,x,s,y,z,r,p: integer;
Begin
clrscr;
Writeln('Введите  номер билета:');
readln(x);
s:=x div 100000;
r:=x div 10000 mod 10;
y:=x div 1000 mod 10;
c:=x div 100 mod 10;
a:=x mod 100 div  10;
b:=x mod 10;
z:=y+r+s;
p:=a+b+c;
if z=p then
begin
write('билет счастливый');
writeln('  ',z,' = ',p);
end
else
writeln('билет не счастливый   '  ,z,' <> ',p);
readln;
End.

может поможет)))

Спасиб))....а можно сделать так чтоб не я числа вводила, а чтоб они сами вводились?

@Angel-dm · 19.05.2010, 22:22

вот:

Pascal

Program sd;
uses crt;
var
a,b,c,s,y,z,r,p,x: integer;
Begin
clrscr;
Writeln('Программа определяет вид билета:');
for x:=100000 to random(999999) do
s:=x div 100000;
r:=x div 10000 mod 10;
y:=x div 1000 mod 10;
c:=x div 100 mod 10;
a:=x mod 100 div  10;
b:=x mod 10;
z:=y+r+s;
p:=a+b+c;
if z=p then
begin
write('билет счастливый');
writeln('  ',z,' = ',p);
end
else
writeln('билет не счастливый   '  ,z,' <> ',p);
writeln(x);
readln;
End.

@Сашааа 0 / 0 / 0 Регистрация: 10.04.2010 Сообщений: 10
		1
	Составить программу, определяющую количество счастливых билетов на катушке, если меньший номер билета -N, больший - М 18.05.2010, 21:05. Показов 13217. Ответов 3 Метки нет (Все метки) Имеется часть катушки с автобусными билетами. Номер билета шестизначный. Составить программу, определяющую количество счастливых билетов на катушке, если меньший номер билета -N, больший - М (билет является счастливым, если сумма первых трех его цифр равна сумме последних трех). (решить через функцию) 0

	19.05.2010, 22:22