Урок 10.2 задача 2

Primary tabs

Submitted by kuznmax on Sun, 03/13/2022 - 14:00

Forums:

Урок 10.2 задача 2

В примере №2 есть код, который описывает программу угадывания числа с трех попыток. Перепишите этот код так, чтобы:
Можно было бы задать угадываемое число (пусть его вводит пользователь)
Если пользователь все же угадал число - напишите в сообщении о победе с какой именно попытки ему это удалось.

var a, b, i:integer;
begin
  writeln('Введите число от 1 до 10');
  readln(a);
  writeln('Угадайте число от 1 до 10 с трех попыток');
  for i:=1 to 3 do
  begin
    writeln('Попытка №', i, ' выше число:' );
    readln(b);
    if (b = a) then
    begin
       writeln('Победа!');
       break
    end else
       writeln('Не угадали!');
  end;

  writeln('Игра окончена!');
  readln();
end.
  • Log in to post comments
  • 1152 reads
vedro-compota's picture

vedro-compota

Sat, 03/19/2022 - 11:19

добавить вывод номера попытки для победы

_____________
матфак вгу и остальная классика =)

kuznmax

Mon, 04/25/2022 - 17:20 

var a, b, i:integer;
begin
  writeln('Введите число от 1 до 10:  ');
  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.
vedro-compota's picture

vedro-compota

Tue, 04/26/2022 - 20:03

проверить запуск, сейчас вообще не работает

_____________
матфак вгу и остальная классика =)