Урок 11 Задача 6
Primary tabs
Модификация одной из пред. задач: Пользователь вводит целые числа. Пока он не введёт число большее 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.
- Log in to post comments
- 1035 reads
vedro-compota
Thu, 07/29/2021 - 20:59
Permalink
1) форматирование
1) форматирование
2) добавить распечатку консоли
3) "предпредыдущее" - это число которое ввели 2 попытки назад, то есть если есть ряд:
то для 78 предпредыдущим будет число 4
_____________
матфак вгу и остальная классика =)
MrDeadSummer
Thu, 07/29/2021 - 21:48
Permalink
var a, b, c:integer;