11. Что будет выведено на экран в результате работы следующего цикла (k – целая переменная)?
а)

k:= 1
нц пока k < 5
вывод k, ' '
k:= k + 1;
кц k:= 1;
while k < 5 do begin
write(k, ' ');
k:= k + 1
end;
ответ:

б) k:= 4
нц пока k < 10
вывод k*k, ' '
k:= k + 2;
кц k:= 4;
while k < 10 do begin
write(k*k, ' ');
k:= k + 1
end;
ответ:

в) k:= 12
нц пока k > 3
вывод 2*k+1, ' '
k:= k - 2;
кц k:= 12;
while k > 3 do begin
write(2*k-1, ' ');
k:= k - 1
end;
ответ:

г) k:= 5
нц пока k < 10
вывод k*k, ' '
k:= k + 2;
кц k:= 5;
while k < 10 do begin
write(k*k, ' ');
k:= k + 1
end;
ответ:

д) k:= 15
нц пока k > 6
вывод k, ' '
k:= k - 2;
кц k:= 15;
while k > 6 do begin
write(k-1, ' ');
k:= k - 1
end;

m1=0

m2=0

m3=0

x=10

while x!=0:

x=int(input())#вводим число

if m1<x:  

 m3=m2

 m2=m1

 m1=x

elif x>m2 and  x>m3 and x<m1:

 m3=m2

 m2=x

elif x<m2 and x<m1 and x>m3:

 m3=x

print(m1,m2,m3,sep=" ")

вот std алгоритм заключается в том что у нас три переменных и мы после нахождения максимума все переменные сдвигаем назад то есть m1 становится m2, m2 становится m3 а m1 присваивается новый максимум  и так же тут случаи когда m2 или m3 больше старых но мешьше m1 он тогда просто меняет значение именно той переменной которой он больше

Var a: array [1 .. 10] of integer;
  i, Count, C, tmpLast, tmpFirst: integer;
begin
  write('Введите число C: ');
  readln(C);
  writeln;
  for i := 1 to 10 do
  begin
    write('a[', i, '] = ');
    readln(a[i]);
    if a[i] = C then
    begin
      Count := Count + 1;
      tmpLast := i;
    end;
  end;
  writeln;
  if (Count = 0) then writeln('В массиве нет числа равное С')
  else
  begin
    writeln('В массиве нашлось число, равное С');
    if (Count = 1) then
      writeln('Первое и единственное число в позиции a[', tmpLast, ']')
    else
    begin
      i := 0;
      repeat
        i := i + 1;
        tmpFirst := i;
      until (a[i] = C);
      writeln('Первое такое число a[', tmpFirst, ']');
      writeln('Последнее такое число a[', tmpLast, ']');
    end;
  end;
  readln;
end.