Пользователь вводит последовательность из 20 нат. чисел.проверить есть ли в последовательности 5 нечётных чисел меньше 10. все нужно завтра или после завтра пишите на паскале
if ((num mod 2 = 1) and (num < 10)) then flag := flag + 1;
end;
if flag > 4 then Writeln('Yes') else Writeln('No')
end.
Можно написать и более эффективную программу, но и так сойдёт, думаю. И да, если требуется наличние ровно 5 чисел (не больше и не меньше), то замените flag > 4 на flag = 5.
var num, flag, i: Integer;
begin
flag := 0;
for i := 1 to 20 do
begin
Read(num);
if ((num mod 2 = 1) and (num < 10)) then flag := flag + 1;
end;
if flag > 4 then Writeln('Yes') else Writeln('No')
end.
Можно написать и более эффективную программу, но и так сойдёт, думаю. И да, если требуется наличние ровно 5 чисел (не больше и не меньше), то замените flag > 4 на flag = 5.