Урок 11 задача 2
Primary tabs
Пользователь вводит целые числа. Пока он не введёт число большее 15 , в ответ на каждое введённое число выводите сумму этого числа и предыдущего введённого им числа, если же введённое число больше 15, то цикл необходимо завершить, не выводя в ответ сумму. Первое введенное пользователем число можно сложить с единицей.
Решение:
program U11z2; var a,b: integer; begin a:=1; // первое число счетчика while(a < 15) do begin b:=a; //делаем из первого предыдущее; writeln('Vvedite cheloe chislo:'); readln(a); //первое число меняется на вводимое пользователем if(a < 15) then //прерывавем с условным оператором (if) //прерывает только ближайшее действие writeln(b + a); //сумма предыдущего и последнего введенного пользователем end; writeln('Poka!'); readln(); end.
- Log in to post comments
- 3102 reads
nglag
Fri, 07/16/2021 - 12:01
Permalink
С использованием break;
vedro-compota
Thu, 07/15/2021 - 19:46
Permalink
исправить форматирование
исправить форматирование
_____________
матфак вгу и остальная классика =)
nglag
Fri, 07/16/2021 - 12:09
Permalink
Отформатировал 1вариант
nglag
Fri, 07/16/2021 - 12:15
Permalink
Отформатировал вариант с break;
vedro-compota
Sun, 07/18/2021 - 11:52
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)