Задача №1 Выполнить трассировку (прогон) программы и определить, что будет выведено на экран после выполнения фрагмента программы. ( )

……

Begin

А:=1;

For С:=10 downto 5 do

Begin

A:=A+C;

End;

Writeln (‘Значение A=’, A);

End.

Задача №2 Выполнить трассировку (прогон) программы и определить, чему будет равно значение переменной b после выполнения фрагмента программы. ( )

……

Begin

b:=0;

For k:=2 to 3 do

Begin

For i:=1 to 2 do

b:=b+2*i*k;

End;

End;

b:=sqr (b);

Writeln (‘b=’, b);

End.

Задача №3 Выполнить трассировку (прогон) программы и определить, чему будет равно значение переменной X и S после выполнения фрагмента программы. ( )

……

Begin

S:=0; X:=10; A:=0; B:=0;

For i:=1 to 3 do

Begin

S:=S+2*i;

if X>=6 then X:=X / 2

else X:=X*6;

End;

if S
S:=Dec (S);

X:=Inc(X);

End;

Writeln (‘X=’, X);

Writeln (‘S=’, S);

End.

var m,a:array [-100..100] of integer;

n,j,i,k,count:integer;

begin

write('введите сколько необходимо чисел: ');

read(n);

write('число к: ');

read(k);

//осуществим ввод n элементов и отсортируем по условию в другой массив а

for i:=1 to n do begin

 read(m[i]);

if m[i]>k then begin

 inc(count);

 a[count]:=m[i];

 end;

end;

//отсортируем этот массив пузырьковым методом  

for i:=1 to count-1 do begin

 for j:=1 to count-i do

   if a[j] < a[j+1] then

     swap(a[j],a[j+1]);

  end;

//выводим уже отсортированный массив чисел > к

  for i:=1 to count do

    write(a[i],' ');

end.

Собака - друг людини. Я люблю собак, тому що це відданий і доброзичливий друг. З собакою можна пограти або навчити її різним командам. Якщо господареві загрожує небезпека, собака буде захищати його навіть ціною власного життя.

Собака привчає до відповідальності, адже за нею необхідно щодня доглядати: годувати, вигулювати, не забувати міняти воду для пиття.

Якщо у людини поганий настрій, йому сумно або у нього щось болить, собака відчуває це і всіляко намагається до своїм господарям, підняти їм настрій.

Я люблю собак, адже вони віддають нам тепло і любов.