9.определите значение переменной a после выполнения фрагмента программы: a: =10; b: =3; if a > b then b: =b+12 else a: =a-7; if a > b then a: =a+12 else a: =a-7; 11.определите что будет напечатано в результате работы следующей программы. var k, i: integer; begin k : =4; for i : = 1 to 3 do k : = 2*k +i; writeln(k); end. 12.определите что будет напечатано в результате работы следующей программы. var s, i: integer; begin s : =3; for i : = 2 to 5 do s : = s+2*i writeln(s) ; end 13.определите что будет напечатано в результате работы следующей программы. var s, n: integer; begin s : =1; for n : = 3 to 8 do s : = s*2 write(s) ; end. 14.чему будет равно значение переменной а после выполнения этого цикла? i: =4; a: =12; while i< 6 do begin a: =a+i; i: =i+1 end. ase

ответ:

9.определите значение переменной a после выполнения фрагмента программы:

a: =10;

b: =3;

if a > b then b: =b+12//а больше б, значит к б прибавим 12 и получим что б 21

else a: =a-7; //а это игнорим

if a > b then a: =a+12//теперь а не больше б(б21 а а 10), так что к а прибавим 12, получаем а 22

else a: =a-7; // а это игнорим

а = 22.

11.определите что будет напечатано в результате работы следующей программы.

var k,i: integer;

begin

k : =4; /к равно 4

for i : = 1 to 3 do//следующая строка повториться 3 раза, а и при этом будет меняться от 1 до 3

k : = 2*k +i;

// при и равном 1 к станет 9

// при и равном 2 к станет 20

// при и равном 3 к станет 43

writeln(k); // выведет 43

end.

ответ 43

12.определите что будет напечатано в результате работы следующей программы.

var s,i: integer;

begin

s : =3;

for i : = 2 to 5 do// и будет меняться от 2 до 5

s : = s+2*i

//к с будет прибавляется 2i т.е. сперва 3; 7; 13; 21; 31

writeln(s) ; //31

end

ответ: 31

13.определите что будет напечатано в результате работы следующей программы.

var s,n: integer;

begin

s : =1;

for n : = 3 to 8 do//повториться 6 раз

s : = s*2// каждый раз s увеличивается вдвое, т.е.это 2 в 6 степени

write(s) ;

end.

ответ: 64

14.чему будет равно значение переменной а после выполнения этого цикла?

i: =4;

a: =12;

while i< 6 do begin//по сути он повторится 2 раза, а и будет принимать значение от 4 до 5

a: =a+i; //а увеличиваем на и: сперва это 16, потом 21

i: =i+1

end.

ответ: 21

Program n1; const n=10; var a: array[1..n] of integer; n3,n2,min,max,i,imin,imax,t: integer; begin randomize; writeln('введите диапазон (a; b) : '); write('a='); readln(n3); write('b='); readln(n2); write('сгенерированный массив: '); for i: =1 to n do begin a[i]: =random(n2-n3+1)+n3; write(a[i],' '); end; writeln; min: =a[1]; for i: =2 to n do if a[i]< min then min: =a[i]; for i: =1 to n do if a[i]=min then begin imin: =i; break; end; max: =a[1]; for i: =2 to n do if a[i]> max then max: =a[i]; for i: =1 to n do if a[i]=max then begin imax: =i; break; end; t: =a[imax]; a[imax]: =a[imin]; a[imin]: =t; write('полученный массив: '); for i: =1 to n do write(a[i],' '); end.

Const n=10; var a: array [1..10] of integer;     i,max,maxn,min,minn,c: integer; begin  for i: =1 to n do read(a[i]);   for i: =1 to n do write(a[i],' ');   writeln;   max: =a[1]; min: =a[1];   for i: =2 to n do  begin  if a[i]> max then begin max: =a[i]; maxn: =i; end else  if a[i]< min then begin min: =a[i]; minn: =i; end;   end;   c: =a[maxn];   a[maxn]: =a[minn];   a[minn]: =c;   for i: =1 to n do write(a[i],' ');   writeln;   end.