1) при а=1 и b=2
a:=2;
2)при а=3 и b=3
a:=0;
3)при а=4 и =2
a:=2;
4) при a=-3 and b=5
a:=-15
Объяснение:
const
max_elements = 1000;
a = 1;
b = 15;
first_file_name = '1.txt';
second_file_name = '2.txt';
var
i, j, n, r:integer;
p:real;
ar:array[1..max_elements] of integer;
f1, f2:text;
begin
randomize;
writeln('Input n = ');
readln(n);
for i:=1 to n do begin
ar[i]:=random(b-a+1)+a;
end;
assign(f1, first_file_name);
rewrite(f1);
for i:=1 to n do begin
writeln(f1, ar[i]);
end;
close(f1);
assign(f2, second_file_name);
rewrite(f2);
for i:=1 to n do begin
p:=1;
for j:=1 to i do
p:=p*ar[j];
writeln(f2, p:0:0);
end;
close(f2);
readln;
end.
k = 7
Объяснение:
Фрагмент процедуры на языке VBA.
В двойном цикле проверяются ячейки диапазона 4 на 4
(диапазон A1:D4) на нечетность (Cells(i, j) mod 2 <>0).
Cells(i, j) - обращение к ячейке рабочего листа в строке i и в столбце j.
К столбцам А, В, С и т.д. можно обращаться по номеру 1, 2, 3 и т.д.
Операция Cells(i, j) mod 2 означает остаток от деления числа, которое находится в ячейке Cells(i, j) , на 2. Если число делится на 2 с остатком (остаток <>0 - не равняется 0), то число в ячейке Cells(i, j) - нечетное.
В диапазоне A1:D4 7 нечетных чисел, поэтому переменная к = 7.
Ячейки диапазона просматриваются одна за другой по строкам, при этом значение счетчика k увеличивается на 1, каждый раз, когда число нечетное.
1) a=2
2) a = 0
3) a= 2
4) a= -15