profile
Размещено 5 лет назад по предмету Информатика от Аккаунт удален

ИНФОРМАТИКА!!!     

Написать программу определения числа билетов с 6-значными номерами,у которых сумма первых 3 десятичных цифр равна сумме 3 последних десятичных цифр (ПАСКАЛЬ)

  1. Ответ на вопрос
    Ответ на вопрос дан ReshenieEst
    Program BB;
    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.


Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.