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