Задача 6 Урок 11
Primary tabs
Модификация одной из пред. задач: Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и пред-предыдущего введённого им числа, если это число чётное, иначе просто запрашивать новое число. Если же введённое число больше 15, то цикл необходимо завершить.
В первом витке цикла все "предыдущие" числа можно считать единицами.
var a, b, c: integer; begin a:=1; while (a<15) do begin b:=a; write(' vvedite celoe chislo: '); readln(a); c:=a+b; if (a>=15) then break else if ((c mod 2)=0) then write(c, ' ') else end; write('poka!'); readln(); end.
КОНСОЛЬ:
vvedite celoe chislo: 5 6 vvedite celoe chislo: 1 6 vvedite celoe chislo: 2 vvedite celoe chislo: 3 vvedite celoe chislo: 3 6 vvedite celoe chislo: 2 vvedite celoe chislo: 15 poka!
- Log in to post comments
- 737 reads
vedro-compota
Sun, 12/05/2021 - 13:31
Permalink
пред-предыдущего введённого
-- т.к. через 1 число до текущего
_____________
матфак вгу и остальная классика =)