Задача 2 Урок 11 While
Primary tabs
{Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и предыдущего введённого им числа, если же введённое число больше 15, то цикл необходимо завершить. Первое введенное пользователем число можно сложить с единицей.}
program ab; var a,b: integer; begin a := 1; b := 0; while (a <= 15) do begin writeln('vvedite celoe chislo:'); readln(a); writeln(a + b); b:=a; end; writeln('Poka!'); readln(); end.
- Log in to post comments
- 1774 reads
vedro-compota
Sat, 05/01/2021 - 12:12
Permalink
Если пользователь вводит с
Если пользователь вводит с первого раза 17, то цикл должен завершится и сумма выводится не должна (добавил уточнение в условие).
_____________
матфак вгу и остальная классика =)
i_love_cookies
Mon, 05/03/2021 - 12:18
Permalink
program ab;
vedro-compota
Sat, 05/15/2021 - 16:35
Permalink
Добавьте альтернативное
Добавьте альтернативное решение без использования
внутри цикла
_____________
матфак вгу и остальная классика =)