Операция: получение целого остатка
Обозначение: 1.∃ 2.∧ 3.mod 4.¬
Тип результата: а. logical б. integer
в. string
г. char

я уже вроде отвечал на такой вопрос, нашел код, вот:

import datetime

info = datetime.datetime.now()

hours = info.hour

mins = info.minute

sec = info.second

print(hours,mins, sec)

a = []

if hours == 1 or hours == 21:

a.append(f'{hours} час')

elif hours % 10 == 2 or hours % 10 == 3 or hours % 10 == 4:

a.append(f'{hours} часа')

else:

a.append(f'{hours} часа')

if mins % 10 == 1:

a.append(f'{mins} минута')

elif mins % 10 == 2 or mins % 10 == 3 or mins % 10 == 4:

a.append(f'{mins} минуты')

else:

a.append(f'{mins} минут')

if sec % 10 == 1:

a.append(f'{sec} секунда')

elif sec % 10 == 2 or sec % 10 == 3 or sec % 10 == 4:

a.append(f'{sec} секунды')

else:

a.append(f'{sec} секунд')

print(*a)

думаю сможете сами всё это просто запихнуть в функцию и будет вам счастье)

Объяснение:

program raf105;

var a,b,c:integer;

begin

write('Введите 3 числа: ');

readln(a,b,c);

if (a<b) and (a<c)

 then writeln('Произведение 2 наибольших чисел: ',b*c);

if (b<a) and (b<c)

 then writeln('Произведение 2 наибольших чисел: ',a*c);

if (c<b) and (c<a)

 then writeln('Произведение 2 наибольших чисел: ',b*a);

end.

program raf105;

var a,i,b:integer;

begin

write('Введите число: ');

readln(a);

for i:=1 to a do

 if ((a mod i)=0) and ((i mod 2)<>0)

   then b:= b+i;

writeln('Сумма нечётных делителей введённого числа: ',b);

end.

program raf105;

var a,a2,i,j,b:integer;

begin

write('Введите меньшее число: ');

readln(a);

write('Введите большее число: ');

readln(a2);

for j:=a to a2 do

begin

 for i:=1 to j do

   if ((j mod i)=0) and ((i mod 2)<>0)

     then b:= b+i;

writeln('Сумма нечётных делителей числа ',j,' равна: ',b);

b:= 0;

end;

end.

Язык программирования PascalABC