Задача 2 Урок 10.2
Primary tabs
В примере №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.
- Log in to post comments
- 769 reads
vedro-compota
Wed, 05/18/2022 - 20:18
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)