Есть ответ 👍

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

182
192
Посмотреть ответы 3

Ответы на вопрос:

AFMaster
4,5(50 оценок)

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.

Pascalabc var i,k,b: integer; a: array[1..7] of integer; begin for i: =1 to 7 do read(a[i]); b: =a[1]+a[2]+a[3]+a[4]+a[5]+a[6]+a[7]; if (b mod 2 = 0) or (b mod 7 = 0) then writeln('это число четное либо кратно 7') else writeln('это число не четное и не кратно 7); end.
Dmitrrrr
4,7(47 оценок)

#include< iostream> using namespace std; int main() {       for(int i = 0; i < 40; i++)             cout < < "_";       cout < < "\n";       for(int x = 5; x < 51; x++)       {             if (x % 3 == 0)             {                   int y = x*(3-x);                   cout < < "x = "< < x< < " y = "< < y;                   if (x < 10) cout < < " ";                   if (y > -1000)                   {                         cout < < " ";                         if (y > -100)                         {                               cout < < " ";                               if (y > -10) cout < < " ";                         }                   }                   cout < < "      ";                   if (x % 5 ! = 0) cout < < "|\n";             }                         if (x % 5 == 0)             {                   if (x % 3 ! = 0) cout < < "                                      ";                   int y = 2*(x-5);                   cout < < "|          x = "< < x< < " y = "< < y< < "\n";             }       }       return 0; }

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS