Question

ребят, помогите!
написать программу:

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

 

Answer 1

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.

Answer 2

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.