Тесты Программирование на языке Pascal

Последовательное выполнение команд языка Паскаль вида:

a:=abs(-2)+trunc(1,6)*(6 mod 4):

b:=max(a mod 5, a div 3)* sgrt(a+5):

c:=int(a/4)+sgrt(b+4)sgrt(b-a)

определит значение

Фрагмент программы вида:

k:=1;

while (k<100) do k:=k+k;

white (k);

выведет значение k, равное:

Значение переменной s после выполнения фрагмента программы вида:

s:=0;

i:=1; 

while (i<5) do

    begin

       i:=i+1;

       s:=s+1

     end;

будет равно ...

Фрагмент программы вида

m:=5;

p:=5:

for i:=1 to 3 do

   if ((p<i) or (m<i) then p:=i else m:=i;

writeln (m, p);

Фрагмент программы вида:

a='in';

b='out';

k:= length (b) - length (a);

for i:=1 to k do if (a[i]<b[i]) then k:=k+1;

write (k);

выведет на экран значение k, равное ...

Для a[i] = i, i = 1, 2, 3 фрагмент программы вида:

j:=1;

i:=3;

while (i>1) do

  begin

     if (a[i]>a[j]) then j:=i;

     i:=i-1;

   end;

write (i, j);

выведет на экран значения i и j в указанной последовательности:

Фрагмент программы вида:

s:=0;

i:=3;

while (i>1) do

  begin

    y:=1;

    j:=1;

    while (j<3) do

       begin

         y:=y*i;

         j:=j+1

       end;

  s:=s+y;

  i:=i-1

end;

write (s, y);

выведет на экран последовательно следующие значения переменных s и y :

Фрагмент программы виды:

k:=1;

f:=1;

while (k,6) do

  begin

    f:=f*k;

    k:=k+2

   end;

write (f, k);

выведет на экран пару чисел в следующей последовательности:

Фрагмент программы вида:

x:=4;

i:=3;

j:=3;

while (x mod j>0) do

  begin

    j:=j-1;

    i:=i-1

   end;

write (i+j);

выдаст на экран число, равное...