Блок-схема - в прилагаемом файле.
Программу Вам написали правильно:
var
i, p: integer;
begin
p := 1;
for i := 4 to 7 do p := p * i;
writeln('P = ', p);
end.
Результат:
P = 840
А) 1999
Б) 978
В) 1147
В римской системе счисления I обозначает 1, V обозначает 5, X — 10, L — 50, C — 100, D — 500, M — 1000. Например, число 3 в римской системе счисления будет обозначаться как III. Однако не все так просто, и она не является полностью непозиционной системой счисления, потому что в римской системе счисления есть дополнительное правило, которое влияет на величину, которую обозначает цифра, в зависимости от ее положения. Правило это запрещает употреблении одной и той же цифры более 3 раз подряд, поэтому три это III, а четыре это уже IV, и I(1), стоящая перед большей цифрой V(5), обозначает вычитание, то есть фактически равна -1.
Можно разместить посты в соц.сетях таких как:
Так же на различных форумах на разные темы!!!