Задача 2 урок 11
Primary tabs
http://fkn.ktu10.com/?q=node/7341
Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и предыдущего введённого им числа, если же введённое число больше 15, то цикл необходимо завершить, не выводя в ответ сумму.
Первое введенное пользователем число можно сложить с единицей.
program task2_lesson11; var i,a:integer; begin i:=1; a:=1; while i<=15 do begin writeln('Enter integer'); readln(i); if (i<=15) then begin writeln(i+a); a:=i; end else break; end; readln(); end.
- Log in to post comments
- 350 reads