Запишите значение переменной s, полученное в результате работы следующей программы.

var n, s: integer;
begin
s := 0;
for n := 3 to 7 do
s := s + 2 * n;
write(s);
end.

Код + скриншот (код и вывод компилятора). Строки с #... - комментарии. Если хотите, что бы показывался весь процесс работы программы - уберите только "#". Если не нужно - можете удалить строки с #... (не обязательно):

N = int(input("N = "))

fact_N = 1

for i in range(1,N+1):

   fact_N *= i

#print("Factorial N = ",fact_N)

count_dividers = 0

for divider in range(1,fact_N+1):

   if (fact_N % divider == 0):

       count_dividers += 1

#        print(count_dividers,"divider = ",divider)

print("Amount of dividers for '",N,"' - ",count_dividers)

program z1;

var t: integer;

begin

write('С начала суток секунд t = ');

readln(t);

writeln('Это составляет ',t div 3600,' часов ', t mod 3600 div 60,' минут ',t mod 3600 mod 60,' секунд')

end.

Объяснение:

div - целочисленное деление

mod - остаток от целочисленного деления

1 мин = 60 сек

1 час = 60 мин = 3600 сек

t div 3600 - сколько целых часов

t mod 3600 - сколько секунд осталось не считая целых часов

t mod 3600 div 60 - сколько целых минут

t mod 3600 mod 60 - сколько секунд осталось не считая целых часов и целых минут