Задача 2 Урок 10.2
Primary tabs
В примере №2 есть код, который описывает программу угадывания числа с трех попыток. Перепишите этот код так, чтобы:
1.Можно было бы задать угадываемое число (пусть его вводит пользователь)
2.Если пользователь все же угадал число - напишите в сообщении о победе с какой именно попытки ему это удалось.
var a, b, i:integer; begin writeln('vvedite chislo'); readln(a); writeln('Ygadayte chiclo on 1 do 10 c 3-x popitok'); for i:=1 to 3 do begin writeln('Popitka #', i, ' visje chislo:' ); readln(b); if (b = a) then begin writeln('Pobeda! C ',i,' popitki'); break end else writeln('He ygadali!'); end; writeln('Game over!'); readln(); end.
- Log in to post comments
- 469 reads
vedro-compota
Thu, 07/28/2022 - 20:14
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)