Урок 10.2

Задача 1 Урок 10.2:

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

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

Задача 2 Урок 10.1:

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

var a, b, i:integer;
begin
  writeln('vvedite chiso');
  readln(a);
  writeln('vvedite vashe chislo c 3 popitoc');
  for i:=1 to 3 do
  begin
    writeln('popitka nomer ',i,' vvedite chislo');
    readln(b);
    if  (b = a) then
    begin
       writeln('Win, ', 'win c ', i,' ', 'poputki');
       break
    end
    else
       writeln('ne ugadali!');
  end;
  writeln('game over!');
  readln();
end.      

Вывод консоли:
vvedite chiso
5
vvedite vashe chislo c 3 popitoc
popitka nomer 1 vvedite chislo
3
ne ugadali!
popitka nomer 2 vvedite chislo
2
ne ugadali!
popitka nomer 3 vvedite chislo
5
Win, win c 3 poputki
game over! 

Задача 3 Урок 10.1:

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

var a, b, i:integer;
begin
  writeln('vvedite chiso');
  readln(a);
  writeln('vvedite vashe chislo c 3 popitoc');
  for i:=1 to 3 do
  begin
    writeln('popitka nomer ',i,' vvedite chislo');
    readln(b);
    if  (b = a) then
    begin
       writeln('Win ', 'win c ', i, 'poputki');
       break
    end
    else
       writeln('ne ugadali!');
  end;
  if b<>a then
  writeln('game over!');
  readln();
end.    

Вывод консоли:
vvedite chiso
5
vvedite vashe chislo c 3 popitoc
popitka nomer 1 vvedite chislo
2
ne ugadali!
popitka nomer 2 vvedite chislo
3
ne ugadali!
popitka nomer 3 vvedite chislo
1
ne ugadali!
game over!