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

Primary tabs

Submitted by tdm036 on Mon, 06/09/2025 - 00:59

Forums:

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

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

. 

program u102z3;
var a, b, i:integer;
begin
  a := 5;
  writeln('Ugadayte chislo ot 1 do 10 s 3 popytok');
  for i:=1 to 3 do
  begin
    writeln('Popytka N', i, ' vashe chislo:' );
    readln(b);
    if (b = a) then
    begin
       writeln('Pobeda!');
       break
    end
    else
      writeln('Ne ugadali!');
      if (i = 3) then
        writeln('Igra okonchena!');
  end;
  readln();
end.

КОНСОЛЬ:

Ugadayte chislo ot 1 do 10 s 3 popytok
Popytka N1 vashe chislo:
1
Ne ugadali!
Popytka N2 vashe chislo:
2
Ne ugadali!
Popytka N3 vashe chislo:
3
Ne ugadali!
Igra okonchena!
Ugadayte chislo ot 1 do 10 s 3 popytok
Popytka N1 vashe chislo:
1
Ne ugadali!
Popytka N2 vashe chislo:
2
Ne ugadali!
Popytka N3 vashe chislo:
5
Pobeda!

Не знаю при чём тут значение логического типа, но я сделал так.

  • Log in to post comments
  • 69 reads

tdm036

Wed, 06/11/2025 - 03:16

program u102z3;
// Решение со значением логического типа
var a, b, i:integer;
begin
a := 5;
writeln('Ugadayte chislo ot 1 do 10 s 3 popytok');
for i:=1 to 3 do
begin
writeln('Popytka N', i, ' vashe chislo:' );
readln(b);
if (b = a) then
begin
writeln('Pobeda!');
break
end
else
writeln('Ne ugadali!');
if (i = 3) AND (b a) then
writeln('Igra okonchena!');
end;
readln();
end.