Задание 15 Урок 11
Primary tabs
У вас есть число z=5. Пользователь вводит числа в цикле, если хотя бы одно введенное число число было равно 77, то увеличивайте число z на 1 в ответ на каждое введенное число, до тех пор пока пользователь не введет число 55, если такое произойдет то в ответ на это и любое последующее число, уменьшайте z на 1.
Цикл и программа должны завершиться, когда число z станет отрицательным.
(в начале цикла, если первое введенное число не равно ни 55, ни 77, считаем, что мы должны увеличивать z на 1 пока не встретим 55 или 77, которые укажут на конкретные действия).
var a, z: integer; begin z := 5; a := 0; while (z >= 0) do begin if (a = 77) then begin z := z + 1; writeln('z = ', z); end else if (a = 55) then z := z - 1 else if (z = 0) then z := z - 1; while (a = 77) do begin while (a <> 55) do begin write('Введите целое число: '); readln(a); if (a <> 55) then begin z := z + 1; writeln('z = ', z); end else z := z - 1; end; end; while (a = 55) do begin while ((a <> 77) and (z >= 0)) do begin writeln('z = ', z); write('Введите целое число: '); readln(a); if (a <> 77) then z := z - 1; end; end; while ((a <> 77) and (a <> 55) and (z >= 0)) do begin write('Введите целое число: '); readln(a); if ((a <> 77) and (a <> 55)) then begin z := z + 1; writeln('z = ', z); end; end; end; writeln('------'); writeln('Удачи!'); readln(); end.
Консоль:
Введите целое число: 55 z = 4 Введите целое число: 2 z = 3 Введите целое число: 77 z = 4 Введите целое число: 2 z = 5 Введите целое число: 8 z = 6 Введите целое число: 55 z = 5 Введите целое число: 2 z = 4 Введите целое число: 5 z = 3 Введите целое число: 6 z = 2 Введите целое число: 4 z = 1 Введите целое число: 2 z = 0 Введите целое число: 1 ------ Удачи!
- Log in to post comments
- 337 reads