Вводить числа с клавиатуры пока их количество не превысит 7 или не появится число 77. Решить двумя способами - Turbo Pascal
Формулировка задачи:
Вводить числа с клавиатуры пока их количество не превысит 7 или не появится число 77.
Решить задачу двумя способами. На While и Repeat
Заранее спасибо!!
Решение задачи: «Вводить числа с клавиатуры пока их количество не превысит 7 или не появится число 77. Решить двумя способами»
textual
Листинг программы
var a, b : integer; begin a := 0; b := 0; while (a <= 7) and (b <> 77) do begin write('Введите число: '); readln(b); inc(a); end; end.