Урок 11. Цикл While. Задание №2
Primary tabs
Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и предыдущего введённого им числа, если же введённое число больше 15, то цикл необходимо завершить.
Первое введенное пользователем число можно сложить с единицей.
Program LessonPascal; var a, i : integer; begin i := 0; a := 0; while (i <= 15) do begin writeln ('Enter integer: '); readln(i); if (a = 0) then begin i := i + 1; writeln ('You number + previous number = ', i); a := i; end else begin writeln ('You number + previous number = ', i + a); a := i; end; end; writeln ('Cycle completed!'); readln(); // Удержание консоль end.// Завершение программы
- Log in to post comments
- 2005 reads
vedro-compota
Wed, 04/15/2020 - 20:02
Permalink
i := i + 1; не то
не то
_____________
матфак вгу и остальная классика =)
Firons
Thu, 04/16/2020 - 19:58
Permalink
Исправлено
Firons
Thu, 04/16/2020 - 20:04
Permalink
Удалить
Этот комментарий