Задачи Урок 10.2.

Задачи Урок 10.2. :

1) Модифицируйте код -- таким образом, чтобы на 4-ом витке на экран было выведено число 777, а на 5-ом произошел выход из цикла (при этом строчку for i:=1 to 10 оставьте без изменений).

var i : integer;
begin
  for i := 1 to 10 do
  begin
    if i = 4 then
      writeln(777);
    if i = 5 then
      break;
  end;
 
  readln();
end.

2) В примере №2 есть код, который описывает программу угадывания числа с трех попыток. Перепишите этот код так, чтобы:
1) Можно было бы задать угадываемое число (пусть его вводит пользователь)
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('Победа! Вы угадали число с ', i, '-й попытки.');
       break;
    end
    else
       writeln('Не угадали!');
  end;
 
  writeln('Игра окончена!');
  readln();
end.
 

3) В примере №2 есть код, перепишите его таким образом, чтобы сообщение "Игра окончена" выводилась, только если пользователь не угадал загаданное число.
Подсказка: используйте значение логического типа.

var a, b, i : integer;
    c : boolean; 
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
      c := true;
      writeln('Победа! Вы угадали число с ', i, '-й попытки.');
      break;
    end else
       writeln('Не угадали!');
  end;
  
  if not c then 
    writeln('Игра окончена!');
  
  readln();
end.