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

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

var a, b:integer;
begin
readln(a);
  while (a <= 15) do
        begin
        if ((a mod 2) = 0) then
        begin
        b := a - 2;
        writeln(a + b);
        readln(a);
        end else
        readln(a);
        end;
readln();
end. 
vedro-compota's picture

1) форматирование
2) добавить распечатку консоли
3) "предпредыдущее" - это число которое ввели 2 попытки назад, то есть если есть ряд:

6 4 7 12 16

то для 78 предпредыдущим будет число 4

_____________
матфак вгу и остальная классика =)

var a, b, c:integer;
begin
 a := 1;
 b := 1;
  while (a <= 15) do
    begin
      if ((a mod 2) = 0) then
        begin
          c := b;
          b := a;
          readln(a);
          writeln(a + c);
        end else
      readln(a);
    end;
readln();
end.  
2 4 5 6 8 8 12 10 16