Yarisi
Опубликовано 6 лет назад по предмету Информатика от Yarisi


дано четырёхзначное число определить а)равна ли сумма двух его первых цифр сумме двух последних его цифр бкратна ли трём сумма его цифр в)кратно ли четырём произведение его цифр

  1. Ответ
    Ответ дан Аккаунт удален
    PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('n=');  var d:array[1..4] of integer;  for var i:=1 to 4 do begin    d[5-i]:=n mod 10;    n:=n div 10    end;  if d[1]+d[2]=d[3]+d[4] then    Writeln('Сумма двух первых цифр равна сумме двух последних');  if (d[1]+d[2]+d[3]+d[4]) mod 3 = 0 then    Writeln('сумма цифр кратна трем');  if (d[1]*d[2]*d[3]*d[4]) mod 4 = 0 then    Writeln('произведение цифр кратно четырем');end.
Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц