Задача 2 Урок 11
Primary tabs
Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и предыдущего введённого им числа, если же введённое число больше 15, то цикл необходимо завершить, не выводя в ответ сумму.
Первое введенное пользователем число можно сложить с единицей.
var i, a: integer; begin a:=1; // запустили цикл while while a <= 15 do // пока "а" меньше 15, выполняем тело программы begin write(' vvedite celoe chislo: '); // просим пользователя ввести число readln(a); // запрос числа от пользователя if (a < 15) then { вложил дублирующее условие, что пока а меньше, то} begin writeln('otvet: ', a + i); { сумма введенной переменной с переменной из предидущего цикла } i := a; // запоминаем предидущую переменную end else // иначе выход из цикла break; end; writeln('poka!'); // прощаемся readln(); end.
КОНСОЛЬ:
vvedite celoe chislo: 10 otvet: 10 vvedite celoe chislo: 15 poka!
- Log in to post comments
- 829 reads
vedro-compota
Wed, 12/01/2021 - 18:16
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)