Задача 2 Урок 11
Primary tabs
Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и предыдущего введённого им числа, если же введённое число больше 15, то цикл необходимо завершить, не выводя в ответ сумму.
Первое введенное пользователем число можно сложить с единицей.
Решение:
var b, a:integer; begin a:=1; while(a < 15) do begin b := a; writeln('vvedite celoe chislo'); readln(a); if(a < 15) then writeln('summa :', b, '+', a, '=', b + a); end; writeln('poka!'); readln(); end.
Консоль:
vvedite celoe chislo 14 summa :1+14=15 vvedite celoe chislo 16 poka!
- Log in to post comments
- 364 reads
vedro-compota
Wed, 06/01/2022 - 21:03
Permalink
зачитано
зачитано
_____________
матфак вгу и остальная классика =)