Программа, определяющая количество билетов с 6-значными номерами, у которых сумма первых 3 десятичных цифр равна сумме 3 последних

@pavel_79 · Регистрация: 23.01.2013

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

Подскажите,как написать программу, определяющую количество билетов с 6-значными номерами, у которых сумма первых 3 десятичных цифр равна сумме 3 последних. Заранее спасибо

@Adpecke · 16.06.2013, 20:37

Pascal

uses crt;
Var s,a,b,v,z,i:longint; 
Begin
s:=1; {учитываем билет с номером 000000}
for i:=1 to 999999 do {перебираем билеты от 000001 до 999999}
begin
   v:=i;
   z:=0;
   while z<3 do  begin z:=z+1; a:=v mod 10 +a; v:=v div 10 end; {считаем сумму последних трех чисел}
   while z<6 do  begin z:=z+1; b:=v mod 10 +b; v:=v div 10 end; {считаем сумму первых трех чисел}
   if a=b then s:=s+1;
   a:=0;
   b:=0;
end;
writeln(s);
ReadKey;
end.

@pavel_79 0 / 0 / 0 Регистрация: 23.01.2013 Сообщений: 20
		1
	Программа, определяющая количество билетов с 6-значными номерами, у которых сумма первых 3 десятичных цифр равна сумме 3 последних 16.06.2013, 20:05. Показов 2108. Ответов 1 Метки нет (Все метки) Подскажите,как написать программу, определяющую количество билетов с 6-значными номерами, у которых сумма первых 3 десятичных цифр равна сумме 3 последних. Заранее спасибо 0

Опции темы

Программа, определяющая количество билетов с 6-значными номерами, у которых сумма первых 3 десятичных цифр равна сумме 3 последних

Решение