fkn+antitotal

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

Модификация одной из пред. задач: Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и двух предыдущих введённых им чисел (предыдущего и пред-предыдущего), если же введённое число больше 15, то цикл необходимо завершить.
В первом витке цикла все "предыдущие" числа можно считать единицами.

Задача 21 Урок 13.1

Пользователь передает целые положительные число N и M, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" увеличивалась до M чисел, то уменьшалась до 1. Например, для M=3 и N=19 получим:
1
2 3
4 5 6--максимум три числа
7 8
9
10 11
12 13 14--снова три числа
15 16
17
18 19.....

Задача 2 урок 14

Напишите процедуру, которая выводит на экран сумму трёх целых чисел.

program U14Z2;
var a,b,c:integer;
procedure sum(x,y,z:integer);
begin
  write(x+y+z);
end;
begin
  writeln('vvedite a, b, c');
  readln(a,b,c);
  sum(a,b,c);
  readln();
end. 

Задача 1 урок 14

Напишите функцию, которая возвращает сумму трёх целых чисел.

program U14Z1;
var a,b,c,d:integer;
function sum(x,y,z:integer): integer;
begin
  result:=x+y+z;
end;
begin
  writeln('vvedite a, b, c');
  readln(a,b,c);
  d:=sum(a,b,c);
  writeln(d);
  readln();
end. 

Задача 4 урок 13.2

В некоем виртуальном пространстве есть виртуальные, опять же, ASCII-счеты, с 7-ю спицами по 10 костяшек на каждой, в сброшенном состоянии (условный ноль) они выглядят так:

---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++

Задание: визуализируйте на счетах введенное пользователем число.

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

Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные, например для N=17:
3
4 6
7 9
12 14
15 17

Задача 19 Урок 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
ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно).
Решите указанными двумя способами.

Вариант с двумя циклами

Задача 7 урок 15

Заполните массив целых чисел (длиной 8 элементов) случайными значениями от -5 до 5.
Сохраните все неотрицательные числа первого массива во второй массив
и выведете этот второй массив на экран (если количество сохраненных чисел во втором массиве меньше, чем его длина, то выведете только их, не обходя неинициализированные яйчейки).

Задача 6 урок 15

Пользователь вводит целые числа в цикле. Запишите в массив целых чисел (из 3 элементов) все нечетные отрицательные. Как только массив будет заполнен, завершите цикл ввода новых значений пользователем и распечатайте полученный массив.

Задача 5 урок 15

У вас есть массив чисел от 1 до 17, выведете его на экран, обходя в цикле таким образом: