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