fkn+antitotal

Задача №7 из главы 16

Проверить можно ли строки из m перестановкой символов получить строку n.
Примеры (входные данные и ответ):

1
abc и bca

-- можно

1
abc и baa

-- нельзя

1
abcc и cbac

-- можно

1
abc4c и cb55ac

-- нельзя

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и предыдущего введённого им числа, если же введённое число больше 15, то цикл необходимо завершить.
Первое введенное пользователем число можно сложить с единицей.

var
i,  a: integer;
begin  
 while ( a < 15) do
  begin 
    i := a;
    WriteLn(' vvedite chislo');
    ReadLn(a);
    a := a + i;
    if (a < 15) then
    WriteLn(a);
   end;
end. 

  

Урок 20 (Вопрос по задаче номер 1)

Анализ/"чтение" уже написанного кем-то кода -- одно из важнейших умений, постоянно используемое в повседневной работе профессиональными программистами.

Решение задачи №1 из главы 15

Пользователь вводит 7 чисел одно за другим, сохраните их в массив, выведите этот массив на экран.
Примечание: вывод значений массива сделайте в отдельном цикле.

Урок 16 (Решенная задача номер 7)

Проверить можно ли строки из m перестановкой символов получить строку n.

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и числа 7, если же введённое число больше 15, то цикл необходимо завершить.

var a: integer;
begin
  a := 1;
  while (a <= 15) do
  begin
    writeln('vvedite celoe chislo:');
    readln(a);
    writeln(a + 7);
  end;
  writeln('Vihod');
  readln();

end.  

Решение задачи №18 из главы 13.1

Решение задачи 19 из главы 13.1

19. Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой"

Решение одним циклом.

Решение задачи 18 из главы 13.1

18. Модифицируйте решение предыдущей задачи, так, чтобы длина возрастающего фрагмента каждый раз увеличивалась на единицу (начиная с двух):

Решение одним циклом без использования делимости нацело.

Модицифируйте код:

var i:integer;
begin
  for i:=1 to 10 do
  begin
     writeln(777);
     break;
  end;
  readln();
end. 

-- таким образом, чтобы на 4-ом витке на экран было выведено число 777, а на 5-ом произошел выход из цикла (при этом строчку for i:=1 to 10 оставьте без изменений).

var i:integer;
begin
  for i:=1 to 10 do
  begin
     if i = 4 then
       begin
         writeln(777);
         break;
       end;
  end;
  readln();
end.