Задание 2 Урок 11
Primary tabs
Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и предыдущего введённого им числа, если же введённое число больше 15, то цикл необходимо завершить, не выводя в ответ сумму.
Первое введенное пользователем число можно сложить с единицей.
var a, p: integer; begin a := 0; p := 0; while (a <= 15) do begin write('Введите целое число: '); readln(a); if (a <= 15) then begin writeln('Сумма: ', a, ' + ', p, ' = ', a + p); p := a; end else break; end; writeln('------------------'); writeln('Завершение работы.'); readln(); end.
Консоль:
Введите целое число: 10 Сумма: 10 + 0 = 10 Введите целое число: 1 Сумма: 1 + 10 = 11 Введите целое число: 2 Сумма: 2 + 1 = 3 Введите целое число: 5 Сумма: 5 + 2 = 7 Введите целое число: 8 Сумма: 8 + 5 = 13 Введите целое число: -10 Сумма: -10 + 8 = -2 Введите целое число: 20 ------------------ Завершение работы.
- Log in to post comments
- 476 reads