Определите, количество чисел 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

А) FOR K:= 1 TO 5.5 DO  В цикле нельзя давать нецелые числа должно быть так FOR K:= 1 TO 5 DO

Б) FOR J:= 10 TO -2 DO  Тут цикл идет не по прямой а в обратную сторону

а TO обозначает идти вперед, должно было быть так

FOR J:= 10 DOWNTO -2 DO  

В) FOR X:= 3 DOWNTO 12 DO  Тут же все наоборот цикл идет в обратную сторону а должен идти по прямой

FOR X:= 3 TO 12 DO

Г) FOR Y = 0 TO 7 DO  Тут не хватает  :   без них перед = нельзя делать цикл FOR    FOR Y:= 0 TO 7 DO

2. ЗАПОЛНИТЕ В ТАБЛИЦЕ, ЧТО БУДЕТ ВЫВЕДЕНО В РЕЗУЛЬТАТЕ

ВЫПОЛНЕНИЯ ЦИКЛА

1. FOR X:= 5 DOWNTO 2 WRITE('#');  ответ:

2. FOR X:= 1 TO 5 WRITE('#');    ответ:

3. FOR X:= 0 TO 5 WRITE('#');  ответ:

4. FOR X:= 2 TO 7 WRITE('#');   ответ:

5. FOR X:= -5 TO 1 WRITE('#');   ответ:

6. FOR X:= 6 DOWNTO 5 WRITE ('#'); ответ:##

Объяснение:

program z1;

var x: integer;

y: real;

begin

read(x);

y:=2*sin(3*x-12*x);

writeln('y равен: ', y);

end.

Либо

program z1;

var x: integer;

y: real;

begin

read(x);

y:=2*(sin3*x)-12*x;

writeln('y равен: ', y);

end.

Объяснение:

Написал 2 варианта, поскольку формула дана вам была не до конца. В ней скорее всего должны стоять где-то скобки. Если нет, то запишите эту же программу (из любых), только уберите в формуле скобки. Надеюсь объяснил понятно

Вариант по той формуле, как она дана (как я её понял

program z1;

var x: integer;

y: real;

begin

read(x);

y:=2*sin(3*x)-12*x;

writeln('y равен: ', y);

end.