Решение задачи №6 из главы 11
Primary tabs
Решение задачи №6 из главы 11
Модификация одной из пред. задач: Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и пред-предыдущего введённого им числа, если это число чётное, иначе просто запрашивать новое число. Если же введённое число больше 15, то цикл необходимо завершить.
В первом витке цикла все "предыдущие" числа можно считать единицами.
var a, b, c : integer; begin a:=1; //инициализация переменной c:=1; //инициализация переменной while (a < 15) do begin b:=a;//запоминаем предыдущее введеное число writeln('Vvedite cheloe cislo:'); readln(a); //вводим первое число if ((a+c) mod 2)=0 then writeln('summa: (a+c): ', (a+c)) {Выводим сумму введеного числа и пред-предыдущее введеное число} else writeln('Vvedite cheloe cislo:'); readln(a); //вводим первое число c:=b;//запоминаем пред-предыдущее введеное число end; writeln ('poka!'); // завершаем цикл если условие readln(); //Удерживаем консоль end.
- Log in to post comments
- 4071 reads
vedro-compota
Wed, 11/20/2019 - 17:12
Permalink
ключевые слова исправьте
ключевые слова исправьте
_____________
матфак вгу и остальная классика =)
vedro-compota
Sat, 12/07/2019 - 11:49
Permalink
почему дважды
У вас в теле цикла:
идет два раза. Почему? По-идее вы должны читать число один раз только в одном витке.
_____________
матфак вгу и остальная классика =)
gani84
Fri, 08/14/2020 - 13:21
Permalink
Исправил
vedro-compota
Wed, 08/26/2020 - 19:16
Permalink
написать комментарии - какая
написать комментарии - какая переменная отвечает за "предыдущее" число, а какая "пред-предыдущее"
_____________
матфак вгу и остальная классика =)
gani84
Thu, 08/27/2020 - 08:02
Permalink
Ответ
vedro-compota
Sat, 08/29/2020 - 20:36
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)