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

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.

#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; }