Урок №11 Задание 1
Primary tabs
Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и числа 7, если же введённое число больше 15, то цикл необходимо завершить.
program Pr11_1; var a:integer; begin a:=1; while (a<=15) do begin writeln('Введите целое число: '); readln(a); writeln(a+7); end; writeln('Цикл завершен!'); readln(); end.
Консоль:
Введите целое число: 1 8 Введите целое число: 2 9 Введите целое число: 16 23 Цикл завершен!
- Log in to post comments
- 331 reads