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

Primary tabs

Submitted by Dennis80 on Wed, 05/04/2022 - 09:34

Forums:

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

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

var a, b, c, i:integer;

begin
  writeln('Введите число');
  readln(a);
  writeln('Угадайте число от 1 до 10 с трех попыток');
  
  for i:=1 to 3 do    
    begin
      begin 
        c := i;
      end; 
      writeln('Попытка №', i, ' выше число:' );
      readln(b);
      if (b = a) then
        begin
          writeln('Победа!');
          writeln('С ', c,  ' попытки!');
          break;
        end 
      else
        writeln('Не угадали!');
    end;
 
  writeln('Игра окончена!');
  readln();
end.
  • Log in to post comments
  • 1805 reads
vedro-compota's picture

vedro-compota

Wed, 05/04/2022 - 20:32

1)

  for i:=1 to 3 do   
    begin
      begin
        c := i;
      end;

-- лишние операторные скобки

2) Можно ли обойтись без переменной "це"?

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

Dennis80

Thu, 05/05/2022 - 11:51 

var a, b, i : integer;

begin
  writeln('Введите число');
  readln(a);
  writeln('Угадайте число от 1 до 10 с трех попыток');

  for i:=1 to 3 do
    begin
      write('Попытка №', i, ' ваше число: ' );
      readln(b);
      if (b = a) then
        begin
          writeln('Победа! с попытки № ', i);
          break;
        end
      else
        writeln('Не угадали!');
    end;
  writeln('Игра окончена!');
  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 05/11/2022 - 19:33

засчитано

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