Program z;
var n,a,b,s:integer;
begin
s:=0;
for n:=1 to 999 do
begin
a:=n mod 10;
b:=(n div 100) mod 10;
if a+b=7 then s:=s+1;
end;
writeln(s);
end.
Ок, ответ действительно был неправильный, потому что я невнимательно прочитал условие.
Значит так, мы считаем количество слов, пока что забиваем на то, что в каждом слове должна быть буква У. Таких слов будет 5*5*5*5 = 625
Теперь считаем количество слов, в которых совсем нет буквы У:
4*4*4*4 = 256.
Ну и все, собсна вычитаем одно из другого:
625 - 256 = <span>369</span>
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ReadArrInteger(20);
var b:=a.Where(x->x in [10..99]).Where(x->x.IsEven);
if b.Count>0 then Writeln(b.Min)
else Writeln('Не найдено');
end.
<u><em>Тестовое решение:</em></u>
7497 9647 3684 848 6349 37 1281 3739 465 7784 16 406 6936 621 4960 98 1894 3825 3369 6566
16
<span>электронный процессор,драйверы устройств</span>
Да очень просто: переписываешь на какой-нибудь вменяемый язык, выполняешь и смотришь результат.
javascript:function F(n){return(n>1?F(n-1)+G(n-1):n+1);}function G(n){return(n>1?G(n-1)+F(n):n-1);}alert(F(5));
Даёт 26.