Задача 2 Урок 10.2
Primary tabs
В примере №2 есть код, который описывает программу угадывания числа с трех попыток. Перепишите этот код так, чтобы:
Можно было бы задать угадываемое число (пусть его вводит пользователь)
Если пользователь все же угадал число - напишите в сообщении о победе с какой именно попытки ему это удалось.
Решение:
var a, b, i:integer; begin writeln('vvedite ugadyvaemoe chislo'); readln(a); writeln('ugadayte chislo ot 1 do 10 s treh popytok'); for i:=1 to 3 do begin writeln('popitka N ', i, ' vashe chislo:' ); readln(b); if (b = a) then begin writeln('pobeda s popytki:', i); break end else writeln('ne ugadaly!'); end; writeln('igra okonchena!'); readln(); end.
Консоль:
vvedite ugadyvaemoe chislo 5 ugadayte chislo ot 1 do 10 s treh popytok popitka N 1 vashe chislo: 2 ne ugadaly! popitka N 2 vashe chislo: 5 pobeda s popytki:2 igra okonchena!
- Log in to post comments
- 362 reads
vedro-compota
Sat, 05/28/2022 - 19:08
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)