Ответ:
Procedure dec2oct(n: longint); { перевод натурального десятичного n в восьмеричную систему счисления и вывод результата } const alpha = '01234567'; var s: string; i: integer; begin s : = ''; while n > 0 do begin s : = alpha[(n mod 8) + 1] + s; n : = n div 8 end; for i: =length(s) to 9 do s: ='0'+s; write(s) end; { использование } var x: longint; begin write('введите десятичное число: '); read(x); write('в восьмеричной системе счисления: '); dec2oct(x); writeln end. тестовое решение: введите десятичное число: 1234567 в восьмеричной системе счисления: 0004553207
Объяснение:
Var
Ch,Z:real;
i:integer;
Begin
Ch:=0;
For i:= 1 to 100 do
if i mod 7 = 0 then Ch:=Ch+i;
Z:=0;
For i:= 100 to 500 do
if i mod 17 = 0 then Z:=Z+i;
WriteLn(Ch,'/',Z,' = ',Ch/Z);
End.
Результат работы программы:
735/7140 = 0.102941176470588
function FibN(n: integer): List<Biginteger>;
begin
var (f1, f2) := (BigInteger(1), BigInteger(1));
result := Lst(Seq(f1, f2));
for var i := 3 to n do
begin
(f1, f2) := (f2, f1 + f2);
result.Add(f2)
end;
end;
begin
FibN(ReadInteger()).Println
end.
Язык Python
a,b,c,d = 1,2,3,4
print max(min(a,b),min(c,d))
Компьютера -мужской род, ед.число,сущ,Родительный падеж