Задача 2 урок 11
Primary tabs
Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и предыдущего введённого им числа, если же введённое число больше 15, то цикл необходимо завершить, не выводя в ответ сумму.
Первое введенное пользователем число можно сложить с единицей.
program programma2; var a, b: integer; begin a := 1; b := 1; while (a <= 15) do begin writeln('Vvedite celoe chislo:'); readln(a); If a<=15 then writeln(b + a); b:=a; end; writeln('Chislo bolshe 15'); readln(); end.
- Log in to post comments
- 425 reads