SirenaLi27

18.07.2020 20:28

Информатика

Есть ответ 👍

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;