1. Даны целые положительные числа A и B (A < B). Вывести все целые числа от A до B включительно; при этом каждое число должно выводиться столько раз, каково его значение. Пример ввода: 3 5
Пример вывода: 3 3 3 4 4 4 4 5 5 5 5 5
В питоне

var s : string; symb : char; i : longint; begin  readln(s);   readln(symb);   if pos(symb,s)=0 then writeln('в этом слове нет этого символа')  else begin                i: =0;                 while pos(symb,s)< > 0 do begin                                                                    write(pos(symb,s)+i,' ');                                                                     i: =i+1;                                                                     delete(s,pos(symb,s),1);                                                                 end;             end;   writeln;   writeln(i); end.

var s,r: real;

begin

  read(r);

  s: =pi*sqr(r);

  writeln(s: 0: 4);

end.

здесь идёт чередование чётных чисел с нечётными

program amoeba;   var i,count: integer;   begin  i: =3; //количество часов  count: =1; //количество амеб  while i < = 24 do  begin  count: =count*2; //каждые 3 часа количество амеб удваивается  writeln(i,' hours: ',count); //выводим кол-во часов и амеб  i: =i+3;   end;   readln;   end.