<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function Dec2Bin(t: integer): string;
begin
var r: string := '';
while t >= 2 do
(r, t) := (t mod 2 + r, t shr 1);
r := t + r;
Result := '0' * (8 - r.Length) + r
end;
function Bin2Dec(s: string): integer;
begin
Result := 0;
var p := 1;
for var i := s.Length downto 1 do
begin
Result += (s[i].ToDigit) * p;
p *= 2
end
end;
function GenSeqCycle(n: integer): sequence of integer;
begin
var s := Dec2Bin(n);
loop 8 do
begin
yield Bin2Dec(s);
s := s[2:] + s[1]
end
end;
begin
GenSeqCycle(ReadInteger).Max.Println
end.
Блок-схема - в прилагаемом файле.
Программу Вам написали правильно:
var
i, p: integer;
begin
p := 1;
for i := 4 to 7 do p := p * i;
writeln('P = ', p);
end.
Результат:
P = 840
<script type="text/javascript">
var eu=71.3805321;
var dol=64.4205373;
var rub=prompt('Enter value in ruble:','rub');
alert('$:'+rub/dol+' eu:'+rub/eu);
<span> </script></span>
Дизъюнктор
<span> (соединенные параллельно замыкающие контакты нескольких реле).</span>
Javascript:var м=[],ч;while(true){ч=prompt();if(ч==0)break;else м.push(prompt());}alert(Math.min.apply(null,м)+" "+Math.max.apply(null,м));