Question

29-ое задание, нужно срочно

Answer 1

// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=Abs(ReadInteger('Введите четырехзначное число:'));
  var (a,b):=ReadInteger2('Введите делитель и ожидаемый остаток:');
  var k:=0;
  while n>0 do begin k+=n mod 10; n:=n div 10 end;
  Writeln(k mod a = b)
end.

Примеры
Введите четырехзначное число: 6381
Введите делитель и ожидаемый остаток: 4 2
True

Введите четырехзначное число: 5084
Введите делитель и ожидаемый остаток: 3 1
False

Answer 2

Program n1;
var a,b,i,p,n: integer;
begin
write('введите четырехзначное исходное число: ');
readln(n);
write('введите возможный делитель: ');
readln(a);
write('введите возможный остаток: ');
readln(b);
p:=1;
for i:=1 to 4 do
begin
p:=p*(n mod 10);
n:=n div 10;
end;
if p mod a=b then write('true') else write('false')
end.