При каком условии завершится выполнение цикла?
пока время меньше 20.00 делать
начало
а) когда наступит 19.59
б) когда наступит 20.00
в) когда наступит 21.00
г) когда наступит 20.01​

begin

k: =1;

sumf: =1; {так как для i1 sum=1}

for i: =1 to n do (n-колличество членов, вводится с клавиатуры)

begin

k: =k*i;

f: =k;

sumf: =sumf+1/f;

end;

(while)

function sumw(i: integer): real;

begin

k: =1;

i: =1;

sumw: =1;

while i< =n do

begin

k: =k*i;

f: =k;

sumw: =sumw+1/f;

end;

(repeat)

function sumr(i: integer): real;

begin

k: =1;

i: =1;

sumr: =1;

repeat

k: =k*i;

f: =k;

sumr: =sumr+1/f;

i: =i+1

until  i< n;

1) элемент с номером k заменяется на 2

var

a: array [1..20] of integer;

i,n,k: integer;

begin

readln(n);

for i: =1 to n do

begin

a[i]: =random(50);

write(a[i]: 3);

end;

writeln;

readln(k);

a[k]: =2;

for i: =1 to n do

write(a[i]: 3);

end.

2) элемент вставляется в массив остальные элементы сдвигаются вправо

var a: array [1..20] of integer; i, n, k: integer;

begin readln(n); for i : = 1 to n do begin a[i] : = random(50); write(a[i]: 3); end; writeln; readln(k); for i: =n+1 downto k do a[i]: =a[i-1]; a[k] : = 2; for i : = 1 to n+1 do write(a[i]: 3); end.

на египетскую

вавилон-клинопись

финикия-подобие букв без гласных

египет-иероглифы

a: =a+b; (новое а после присвоения будет равно 6, b будет равно 4)

b: =a-b (новое b после присвоения будет равно 2, a будет равно 6)

a: =a-b (новое a после присвоения будет равно 4, b будет равно 2)