Вова не может вспомнить, на какую цифру N начинается номер телефона Светы, девочка предложила ему угадать за 5 попыток. Если Вова угадает нужно вывести «Yes», иначе – «No».
// Задаем правильную цифру
correctDigit := 7; // Например, номер начинается с 7
// Ввод попыток Вовы
writeln('Введите 5 попыток Вовы:'
for i := 1 to 5 do
begin
write('Попытка ', i, ': '
readln(guess);
phoneNumber := guess; // Сохраняем попытку в массив
end;
// Проверка попыток
attempts := 0;
for i := 1 to 5 do
begin
if phoneNumber = correctDigit then
begin
writeln('Yes'
exit; // Завершаем программу, если угадал
end;
end;
// Если ни одна попытка не совпала
writeln('No'
end.
program GuessPhoneNumber;
var
N, guess, i: integer;
attempts: array[1..5] of integer;
begin
readln(N); { Ввод первой цифры номера телефона }
for i := 1 to 5 do
readln(attempts); { Ввод 5 попыток угадывания }
for i := 1 to 5 do
if attempts = N then
begin
writeln('Yes'
exit;
end;
Вы всё ещё кодите в Паскале? А вообще никакой массив тут не нужен - достаточно сравнивать ответы каждый раз и если один совпадёт - написать ок. Другие варианты избыточны. Чему вас учат лол.