Var i, j: Integer; S: String; Визначте, який рядок буде сформований у результаті виконання фрагмента програми: S := ''; For і:=1 To 2 do begin j := 0.1; While j<1 do begin j := j+0.3; S := S +IntToStr(j) +' ' end; Позначте одну правильну відповідьКількість балів 1.00) * А.4 0.7 1.0 0.4 0.7 1.0; Б.1 0.4 0.7 1.0 0.1 0.4 0.7 1.0; В.1 0.4 0.7 1.0; Г.1 0.7 1.0 0.4 0.7 1.0; var i, j: Integer; S: String; Визначте, який рядок буде сформований у результаті виконання фрагмента програми: For i := 1 To 2 do begin S := S + IntToStr (i); For j := 1 To 3 do S:=S + 'A';end; Позначте одну правильну відповідь. (Кількість балів 1.00) * 1AA2AA3AA; 1A2A3A; 1AAA2AAA; 1A1A1A2A2A2A; Визначте, які оператори реалізують обчислення f = 10! Позначте всі правильні відповіді.(Кількість балів 2) * Аf:= 1; For i := 2 to 10 do f := f*i; Бf:= 1; For i := 1 to 10 do f := f+і; Вf:= 1; i := 1; While i f:= 1; For i := 1 to 10 do f := f * A; В яких операторах допущені помилки?Позначте всі правильні відповіді.(Кількість балів 2) * А K := 0; For і := 9 to 1 do K := K*2; Б K := 81; Y := 1; For і := 1 to Sqrt(K) do Y := Y*2; В K := 1; C := 0; For і := 1 to 64 do begin K := K+і; C:=2*і; end; ГY := 0; For X := 0.1 to 0.9 do Y := Y+Sіn(X); Встановіть порядок розташування операторів у програмі для визначення кількості парних серед введених з клавіатури восьми довільних чисел.(Кількість балів 6.00) * 1 2 3 4 5 6 Б) For i := 1 to 8 do begin А) a := StrToInt(InputBox('Ввести 8 чисел', IntToStr(i), '0')); Е) Edit1.Text := IntToStr(k); Д) If a mod 2=0 Then k := k+1; Г) k := 0; В) end; Б) For i := 1 to 8 do begin А) a := StrToInt(InputBox('Ввести 8 чисел', IntToStr(i), '0')); Е) Edit1.Text := IntToStr(k); Д) If a mod 2=0 Then k := k+1; Г) k := 0; В) end;