Var n,x:integer;
begin
write('n = ');
readln(n);
write('x = ');
readln(x);
writeln('Остаток от деления ',n,' на ',x,' = ',n mod x);
end.
Пример:
n = 24
x = 5
Остаток от деления 24 на 5 = 4
Алиса и Шалтай
из сказки "Алиса в Стране чудес"
Var
m, n, n10, n100: integer;
begin
write('Введите трехзначное число: ');
readln(m);
if (m > 99) and (m < 1000) then
begin
n100 := m div 100;
n10 := (m mod 100) div 10;
n := m mod 10;
if (n + n10 + n100) mod 7 = 0 then writeln('Сумма цифр кратна семи')
else writeln('Сумма цифр не кратна семи')
end
end.
Тестовое решение:
Введите трехзначное число: 473
Сумма цифр кратна семи
Власть, каска, слон, пол, тело, еда, эра( больше никак).