Урок 10.2 Задание 3
Primary tabs
В примере №2 есть код
var a, b, i:integer; begin a := 5; writeln('Угадайте число от 1 до 10 с трех попыток'); for i:=1 to 3 do begin writeln('Попытка №', i, ' выше число:' ); readln(b); if (b = a) then begin break writeln('Победа!'); end else writeln('Не угадали!'); end; writeln('Игра окончена!'); readln(); end.перепишите его таким образом, чтобы сообщение "Игра окончена" выводилась, только если пользователь не угадал загаданное число.
Подсказка: используйте значение логического типа.
var a, b, i:integer; begin a := 5; writeln('Угадайте число от 1 до 10 с трех попыток'); for i:=1 to 3 do begin writeln('Попытка №', i, ' выше число:' ); readln(b); if (b = a) then begin break; writeln('Победа!'); end else writeln('Не угадали!'); end; writeln('Игра окончена!'); readln(); end.
Консоль:
Угадайте число от 1 до 10 с трех попыток Попытка №1 выше число: 7 Не угадали! Попытка №2 выше число: 4 Не угадали! Попытка №3 выше число: 5 Игра окончена!
- Log in to post comments
- 400 reads