Найти количество шестизначных билетов у которых сумма первых 3 десятичных цифр равно сумме трех последних десятичных цифр

@snjke · Регистрация: 05.03.2013

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

3) дданы целые положительные M и N (100000<=M<= N) найти колличество билетов с 6-и значными номерами от M до N у которых сумма первых 3 десятичных цифр равно сумме трех последних десятичных цифр

пожалуйста зачет сдать а то на пары не ходил(( в паскале

@CodeR · 06.03.2013, 12:31

Pascal

Var n,m,i,s1,s2,t:longint;
Begin
    write('M = ');readln(m);
    write('N = ');readln(n);
    For i:=m to n do
    Begin
      t:=i;
      s1:=t mod 10+t div 10 mod 10+t div 100 mod 10;
      t:=t div 1000;
      s2:=t mod 10+t div 10 mod 10+t div 100 mod 10;
      if s1=s2 then write(i,' ');
    End;
    readln;
End.

@snjke 0 / 0 / 0 Регистрация: 05.03.2013 Сообщений: 3
		1
	Найти количество шестизначных билетов у которых сумма первых 3 десятичных цифр равно сумме трех последних десятичных цифр 05.03.2013, 17:53. Показов 2164. Ответов 1 Метки нет (Все метки) 3) дданы целые положительные M и N (100000<=M<= N) найти колличество билетов с 6-и значными номерами от M до N у которых сумма первых 3 десятичных цифр равно сумме трех последних десятичных цифр пожалуйста зачет сдать а то на пары не ходил(( в паскале 0

	06.03.2013, 12:31

Опции темы

Найти количество шестизначных билетов у которых сумма первых 3 десятичных цифр равно сумме трех последних десятичных цифр

Решение