Котлеты мясные мясо,яйцо,хлеб(кусочек),молоко,лук,чеснок(по желанию),соль,перец,мука.кухонные принадлежности мясорубка,лопатка,сковорода,кастрюля,дощечка.
Var
ar:array[1..2000] of integer;
n,i,count:integer;
begin
readln(n);
for i:=1 to n do begin
read(ar[i]);
while ((ar[i]>0) and ((ar[i] mod 10)<>4)) do ar[i]:=ar[i] div 10;
if ar[i] mod 10 = 4 then inc(count);
end;
writeln(count);
end.
Решается на обычном калькуляторе
1) 1011100010110 (если из десятиричной)
2) 4DC6 (если из десятиричной)
3) 266306 (если из восьмеричной)
1) 1112124
2) 1023144144
3) 4016