fkn+antitotal

Задача 7 Урок 9

Пользователь вводит четыре числа, найдите из них максимальное.

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

Урок 14 задача 2

var
  a, b, c, d: integer; // объявляем глобальные переменные программы

procedure sum(x, y, z : integer; var S: integer); // начало объявления процедуры
begin
  S := x + y + z; // тело процедуры
end;

begin // начало тела программы
  write('Vvedite 3 chisla: ');
  readln(a, b, c);
  sum(a, b, c, d); // вызов процедуры
  writeln(d);
end.  

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

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

Урок 13,2 задача 3

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

Урок 13 задача 22

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

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

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

Дан массив длиной N (не более 100 элементов). Проверить, что в нем в встречаются все числа от 0 до k, где 0≤k

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

Напишите функцию, которая принимает на вход целое число N и возвращается строку, содержащую арифметическое выражение вида:
a1 # a2 # ..... # aN
Где:

a1, a2,....., aN -- случайные числа из диапазона от 1 до 100
# - один из случайных знаков (*, +, -)

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

Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке, например для 14564 получим:
46541
(используйте опеции div и mod, подразумевается решение через цикл )

program U11Z13;
var a: integer;
begin
    writeln('vvedite pyatiznachnoe chislo');
    readln(a);
    while (a>0) do
          begin
               write(a mod 10);
               a:= a div 10;
          end;
    readln();
end. 

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

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

program U11Z12;
var a, b: integer;
begin
    a:=(5 div 1);
    b:=(5 mod 2);
    writeln(b, a);
    readln();
end.

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

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:
4 8 12 16.......100

program U11Z11;
var a: integer;
begin
     a:=4;
     while (a<=100) do
           begin
                write(a);
                a:=a+4;
           end;
     readln();
end.