Вводить числа с клавиатуры пока их количество не превысит 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.

Оцени полезность:

11   голосов , оценка 3.909 из 5
Похожие ответы