Question

Даю 100 балловСрочно!!! Информатика Найдите ошибки
а) Y := 0; For X := 0.1 to 0.9 do Y := Y + Sіn (X);
б) K := 81; Y := 1; For і := 1 to Sqrt (K) do Y := Y * 2;
в) K := 0; For і := 9 to 1 do K := K * 2;
​

Answer 1

Ответ:

а) Y := 0; For X := 0.1 to 0.9 do Y := Y + Sіn (X);

Y := 0; For X:= 1 to 9 do Y:=Y + Sin(X); параметр целое число

б) K := 81; Y := 1; For і := 1 to Sqrt (K) do Y := Y * 2;

K := 81; Y := 1; For i:= 1 to trunc( (K)) do Y := Y * 2; параметр целое число

в) K := 0; For і := 9 to 1 do K := K * 2;

K := 1; For i:= 9 downto 1 do K := K * 2;

K := 1; For i:= 1 to 9 do K := K * 2;

если К=0, то умножать бесполезно

For і := 9 to 1 цикл не выполнится ни разу