Паскаль

Задачи

1. Есть массив целых чисел (10 элементов), например:

   [1, 3, 2, 1, 3, 2, 2, 4, 0, -5]

   Задача: вывести на экран все числа, которые встречаются нечетное число раз.
   Т.е. в данном случае это:

   2, 4, 0, -5 

   Решите:

Анализ/"чтение" уже написанного кем-то кода -- одно из важнейших умений, постоянно используемое в повседневной работе профессиональными программистами.

Какие были варианты прохлждения нашего курса по Паскалю (обратите внимание, что объём его со временем может увеличиваться и разные участики проходили разное число уроков):

Программирование (Е. В.

var
  a, b, c: integer; // глобальные переменные
  p: ^integer; // Тип: указатель на integer
 
begin
 
 a := 5;
 writeln('a= ', a);
 // f1(a);
 p := @a; { получаем указатель на переменную a 
(на область памяти, где лежит её значение) }
 writeln('p= ', p^); {смотрим что лежит в области памяти,
 на которую указывает указатель  p }
 
 p^ := 9; // Запись "по ссылке"
 writeln('p= ', p^);
 writeln('a= ', a); // значение изменилось тоже, хотя мы не меняли его явно
 
 readln();
end.

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

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

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

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

var
  a, b, c, d: integer;
procedure sum(x, y, z: integer; var v: integer); // начало объявления процедуры
begin
     v := x + y + z;   // задаем процедцру
end; // конец тела процедуры

begin // начало тела программы
      write('Введите два числа: ');
      readln(a, b, c);
      sum(a, b, c, d);
      writeln(d);
      readln();
end.
             

Для того чтобы писать программы обычно требуется минимум две вещи:

Задача №2

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и предыдущего введённого им числа, если же введённое число больше 15, то цикл необходимо завершить.
Первое введенное пользователем число можно сложить с единицей.

Как понять

число выводите сумму этого числа и предыдущего введённого им числа

Как вернуть предыдущее введенное число?