Вопрос Помогите сставить программу в паскале

[makadore]

Вова не может вспомнить, на какую цифру N начинается номер телефона Светы, девочка предложила ему угадать за 5 попыток. Если Вова угадает нужно вывести «Yes», иначе – «No».

использовать массив

 

[Maxbugs]

// Задаем правильную цифру
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.

 

[Николай86]

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;

writeln('No'
end.

 

[ррав]

Вы всё ещё кодите в Паскале? А вообще никакой массив тут не нужен - достаточно сравнивать ответы каждый раз и если один совпадёт - написать ок. Другие варианты избыточны. Чему вас учат лол.

 

[Мишайцу]

Нет!