Задать вопрос
21 января, 08:10

Ребят, помогите!

написать программу:

Является ли сумма цифр заданного 7-значного числа, стоящих в разрядах десятков тысяч, сотен и единиц (1 234 567) числом четным или кратным 7?

+5
Ответы (1)
  1. 21 января, 12:04
    0
    var

    s, x, n: integer;

    begin

    writeln ('Введите число: ') ;

    read (n) ;

    x : = 1000000;

    repeat

    s : = s + (n div x) mod 10;

    x : = trunc (x / 10) ;

    until x < 1;

    writeln ('Сумма = ', s) ;

    if s 0 then

    begin

    if s mod 2 = 0 then writeln ('Сумма - число четное')

    else writeln ('Сумма - число нечетное') ;

    if s mod 7 = 0 then writeln ('Сумма - число кратное 7')

    else writeln ('Сумма - число не кратное 7') ;

    end;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Ребят, помогите! написать программу: Является ли сумма цифр заданного 7-значного числа, стоящих в разрядах десятков тысяч, сотен и единиц ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы