program task;
var a,b:integer;
begin
write('a=');
readln(a);
write('b=');
readln(b);
writeln;
writeln(a,'+',b,'=',a+b);
writeln(a,'-',b,'=',a-b);
writeln(a,'*',b,'=',a*b);
write(a,'/',b,'=');
if b<>0 then
writeln(a/b)
else
writeln('division by zero');
readln;
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)
var a,b,i:integer;
begin
writeln('Введите 2 числа');
readln(a,b);
i:=a+b;
writeln('i=',i);
readln;
end.
Для остальных операций заменяеш знаки вот в этой строчке i:=a+b;