Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 24: var i, k: integer;

function F(x:integer):longint;

begin

if x = 1 then

F:=2

else F:=x*F(x-1);

end;

begin

i := 12;

readln(K);

while (i>0) and (F(i) > K) do

i:=i-1;

writeln(i);

end

Question

Информатика: Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 24: var i, k: integer; function F(x:integer):longint; begin if x = 1 then F:=2 else F:=x*F(x-1); end; begin i := 12; readln(K); while (i 0) and (F(i) K) do i:=i-1; writeln(i); end

milanagorbovsk · Accepted Answer

program z1;var x: integer;y: real;beginread(x);y:=2*sin(3*x-12*x);writeln( y равен: , y);end.Либоprogram z1;var x: integer;y: real;beginread(x);y:=2*(sin3*x)-12*x;writeln( y равен: , y);end.Объяснение:Написал 2 варианта, поскольку формула дана вам была не до конца. В ней скорее всего должны стоять где-то скобки. Если нет, то запишите эту же программу (из любых), только уберите в формуле скобки. Надеюсь объяснил понятноВариант по той формуле, как она дана (как я её понялprogram z1;var x: integer;y:...

MOGZ ответил