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

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с чередованием плюсов и минусов в строках):

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

-- для вывода очередной строки используйте подпрограмму, принимающую на вход нужные агрументы.

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

Напишите процедуру, которая принимает переменную целого типа по ссылке, просит пользователя ввести значение в консоли и инициализирует переменную этим значением (убедитесь, что в теле программы значение изменилось).

var
  a, b: integer;

procedure sum(x: integer; var z: integer);
begin
  z := x;
end;

begin
  write('Введите число: ');
  readln(a);
  sum(a, b);
  writeln(b);
  readln();
end.

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

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

var
  a, b, c: integer;

procedure sum(x, y, z: integer);
begin
  write(x + y + z);
end;

begin
  readln(a, b, c);
  sum(a, b, c);
  readln();
end.

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

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

var
  a, b, c: integer;

function sum(x, y, z: integer): integer;
begin
  result := x + y + z;
end;

begin
  readln(a, b, c);
  writeln(sum(a, b, c));
  readln();
end.

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

Пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 23 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.

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

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

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

Выведите на экран, все числа от 55 до 9236.

program U12Z1;
var  i: integer;
begin
  i:=55;
  repeat
    write(i, ' ');
    i:= i+1;
  until (i>9236);
  readln();
end.

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

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

Пример работы в консоли:

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

Пользователь вводит целое число - сумму в некоторой валюте, требуется выдать эту сумму купюрами наибольшего достоинства.
Напишите программу, которая в качестве результата скажет как именно надо разменять указанную сумму купюрами наибольшего достоинства (укажет количество для купюры каждого типа)
Например, пусть у нас набор купюр 1000, 500, 100 и 50 рублей:

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

У вас есть два массива целых чисел по 10 элементов в каждом.
Выведите на экран все числа из первого массива, которые не содержаться во втором.