Задача 3 Урок 11
Primary tabs
Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и предыдущего введённого им числа, если же введённое число больше 15, то цикл необходимо завершить, не выводя в ответ сумму.
Первое введенное пользователем число можно сложить с единицей.
var a,b:integer; begin a:=1; b:=1; while (a<=15) do begin writeln('vvedite chislo'); readln(a); writeln(a+b); b:=a; end; writeln('vishli is cikla !'); readln(); end. Вывод консоли: vvedite chislo 2 3 vvedite chislo 3 5 vvedite chislo 3 6 vvedite chislo 6 9 vvedite chislo 6 12 vvedite chislo 16 22 vishli is cikla !
- Log in to post comments
- 118 reads