Урок 11 Задача 6
Primary tabs
Модификация одной из пред. задач: Пользователь вводит целые числа. Пока он не введёт число большее 15.
Если очередное введенное число является чётным, то в ответ водите сумму этого числа и пред-предыдущего введённого пользоватлем числа, иначе просто запрашивать новое число. Если же введённое число больше 15, то цикл необходимо завершить.
В первом витке цикла все "предыдущие" числа можно считать единицами.
var a, b, c: integer; begin b := 1; // начальное значение для предыдущего числа c := 1; // начальное значение для пред-предыдущего числа while (1 = 1) do // делаем бесконечный цикл begin write ('Введите число: '); readln(a); if (a <= 15) then // проверка на ввод числа больше 15 begin if (a mod 2 = 0) then // проверка на четность writeln (a, ' + ', c , ' = ', a + c) // выводим сумму введенного и пред-предыдущего чисел end else // если введенное число больше 15 break; // прерываем цикл c := b; // запоминаем пред-предыдуще b := a; // запоминаем предыдущее end; readln(); end.
Вывод в консоли:
Введите число: 2
2 + 1 = 3
Введите число: 6
6 + 1 = 7
Введите число: 3
Введите число: 1
Введите число: 4
4 + 3 = 7
Введите число: 54
- Log in to post comments
- 269 reads