fkn+antitotal

Урок 11 Задача 11

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:
4 8 12 16.......100
(при более оптимальном решении проверка через mod не потребуется)

begin
  i:=4;
  write(i, ' ');
  while(i<=100) do
   begin
    i:=i+4;
    write(i, ' ');
   end;
  writeln();
  writeln('<<konec>>');

  readln();

end.

Решение

4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 100 104

Задача 20 Урок 13.1:

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=18:

1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17 18

ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно).
Решите указанными двумя способами.

Вложенные циклы:

Урок 11 Задача 12

Получите первую и последнюю цифры числа 15 с помощью оперций div и mod (решается без цикла)

begin
 writeln(15 div 10,' ',  15 mod 10);

  writeln();
  writeln('<<konec>>');

  readln();

end.

Решение

1 5

Задача 19 Урок 13.1:

Пользователь передает целое положительное число N, выведете на экран последовательность из единиц в количестве N "ёлочкой", например для N=18:

1
1 1
1 1 1
1 1 1 1
1 1 1 1 1
1 1 1

ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно).
Решите указанными двумя способами.

Вер1(вложенный цикл)

Урок 11 Задача 13

Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке

var i, a: integer;

begin
  writeln('vvedite pyatiznacnoe chislo: ');
  readln(a);
  writeln();
  writeln('reshenie: ');
  for i:=1 to 5 do
  begin
    write(a mod 10);
    a:=a div 10;
  end;
  writeln(); writeln();
  writeln('<<konec>>');

  readln();

end.

Задача 18 Урок 13.1:

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

Урок 11 Задача 14

У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.

Урок 11 Задача 15

Задача 17 Урок 13.1:

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

8 10 12 14  3  16 18 20 22  3....3....и т.д.

Заметьте. что в предыдущей задаче M было зафиксировано =2:

Урок 11 Задача 16

У вас есть число z=5. Пользователь вводит числа в цикле, если за последние 4 попытки ввода было хотя бы одно число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если такого числа не было, то уменьшайте на 1 в ответ на каждый ввод.
Цикл и программа должны завершиться, когда число z станет отрицательным.