fkn+antitotal

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

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

var a: integer;
  procedure SS(var r: integer);
  begin
    r := 1;
  end;
begin
  write('a = ');
  readln(a);
  SS(a);
  write(a);
  readln();
end.    

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

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

var a, b, c, d: integer;
  procedure summ3(q, w, e: integer; var r: integer);
  begin
    r := q + w + e;
  end;
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);
  summ3(a,b,c,d);
  write(d);
  readln();
end.      

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

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

var a, b, c  :integer;
  function summ3(q, w, e:integer): integer;
  begin
    result := q + w + e;
  end;
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);
  writeln(summ3(a,b,c));
  readln();
end.        

Задача 3 Урок 12.1

Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу.

var
  a: char;
begin
  repeat
    write ('Vvedite simvol: ');
    readln(a);
    if a <> '#' then
        writeln ('&');
  until (a = '#');
  writeln ('Cikl zaverschen');
  readln;
end. 

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

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

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

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

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

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

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

У вас есть три числа (три переменные) найдите их медиану.

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

У вас есть три числа (три переменные) найдите их медиану.

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

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